steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

mason.server.notify: fix heartbeat logic

release
Slava Pestov 2010-04-13 05:25:13 -07:00
parent 572b71238f
commit a47db60a74
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/mason/server/notify/notify.factor
View File

@ -25,11 +25,9 @@ SYMBOLS: host-name target-os target-cpu message message-arg ;
target-cpu get >>cpu target-cpu get >>cpu
dup select-tuple [ ] [ dup insert-tuple ] ?if ; dup select-tuple [ ] [ dup insert-tuple ] ?if ;
: heartbeat ( -- ) : heartbeat ( builder -- ) now >>heartbeat-timestamp drop ;
now >>heartbeat-timestamp ;
: git-id ( builder id -- ) : git-id ( builder id -- ) >>current-git-id +starting+ >>status drop ;
>>current-git-id +starting+ >>status drop ;
: make-vm ( builder -- ) +make-vm+ >>status drop ; : make-vm ( builder -- ) +make-vm+ >>status drop ;