logging.insomniac: clean up more

diff --git a/basis/logging/insomniac/insomniac.factor b/basis/logging/insomniac/insomniac.factor
index 0175fd1424124b721e46913fc94aa94b107c1555..5f323d7ada5b78ee382229060f2e442f7c32f095 100644 (file)
--- a/basis/logging/insomniac/insomniac.factor
+++ b/basis/logging/insomniac/insomniac.factor
@@ -2,30 +2,25 @@
 ! See http://factorcode.org/license.txt for BSD license.\r
 USING: logging.analysis logging.server logging smtp kernel\r
 io.files io.streams.string namespaces make timers assocs\r
-io.encodings.utf8 accessors calendar sequences ;\r
+io.encodings.utf8 accessors calendar sequences locals ;\r
 QUALIFIED: io.sockets\r
 IN: logging.insomniac\r
 \r
 SYMBOL: insomniac-sender\r
 SYMBOL: insomniac-recipients\r
 \r
-: ?analyze-log ( service word-names -- string/f )\r
-    [ analyze-log-file ] with-string-writer ;\r
-\r
 : email-subject ( service -- string )\r
     [\r
         "Log analysis for " % % " on " % io.sockets:host-name %\r
     ] "" make ;\r
 \r
-: (email-log-report) ( service word-names -- )\r
-    dupd ?analyze-log [ drop ] [\r
-        <email>\r
-            swap >>body\r
-            insomniac-recipients get >>to\r
-            insomniac-sender get >>from\r
-            swap email-subject >>subject\r
-        send-email\r
-    ] if-empty ;\r
+:: (email-log-report) ( service word-names -- )\r
+    <email>\r
+        [ service word-names analyze-log-file ] with-string-writer >>body\r
+        insomniac-recipients get >>to\r
+        insomniac-sender get >>from\r
+        service email-subject >>subject\r
+    send-email ;\r
 \r
 \ (email-log-report) NOTICE add-error-logging\r
 \r