calendar: use ago instead of `now swap time-`

[factor.git] / extra / site-watcher / site-watcher.factor

diff --git a/extra/site-watcher/site-watcher.factor b/extra/site-watcher/site-watcher.factor
index 00344e8b795f7d177dd85ddb8c1cd673b9a06fd7..2aa2a43f0d3dc86349f3dba80970a19bcf15fc24 100644 (file)
--- a/extra/site-watcher/site-watcher.factor
+++ b/extra/site-watcher/site-watcher.factor
@@ -19,7 +19,7 @@ STARTUP-HOOK: [ f running-site-watcher set-global ]
     ] each ;
 
 : site-up-email ( site -- body )
-    last-up>> now swap time- duration>minutes 60 /mod
+    last-up>> ago duration>minutes 60 /mod
     [ >integer number>string ] bi@
     [ " hours, " append ] [ " minutes" append ] bi* append
     "Site was down for (at least): " prepend ;