Remove groaty logging code

diff --git a/mail.sml b/mail.sml
index fc370b8..4695592 100644 (file)
--- a/mail.sml
+++ b/mail.sml
@@ -1,7 +1,7 @@
 structure Mail :> MAIL =
 struct
 
-fun writeToLog s = ignore (OS.Process.system "klist >/tmp/haha")
+fun writeToLog s = ()
     (*let
        val outf = TextIO.openAppend (Init.scratchDir ^ "/log/mail.log")
     in