: all-builders ( -- builders )
builder new select-tuples ; inline
-: crashed? ( builder -- ? )
+: offline? ( builder -- ? )
heartbeat-timestamp>> 30 minutes ago before? ;
: broken? ( builder -- ? )
[ clean-git-id>> ] [ last-git-id>> ] bi = not ;
-: funny-builders ( -- crashed broken )
+: funny-builders ( -- offline broken )
all-builders
- [ [ crashed? ] filter ]
+ [ [ offline? ] filter ]
[ [ broken? ] filter ]
bi ;
webapps.mason.utils ;
IN: webapps.mason.downloads
-CONSTANT: CRASHED
-[XML <span style="background-color: yellow;">CRASHED</span> XML]
+CONSTANT: OFFLINE
+[XML <span style="background-color: khaki;">OFFLINE</span> XML]
CONSTANT: BROKEN
[XML <span style="background-color: red; color: white;">BROKEN</span> XML]
: builder-status ( builder -- status/f )
{
- { [ dup crashed? ] [ drop CRASHED ] }
+ { [ dup offline? ] [ drop OFFLINE ] }
{ [ dup broken? ] [ drop BROKEN ] }
[ drop f ]
} cond ;