Update command line to grant domain permission

[hcoop/zz_old/portal.git] / mail.sml

diff --git a/mail.sml b/mail.sml
index 4fa6b22..fc370b8 100644 (file)
--- a/mail.sml
+++ b/mail.sml
@@ -1,13 +1,13 @@
 structure Mail :> MAIL =
 struct
 
-fun writeToLog s =
-    let
+fun writeToLog s = ignore (OS.Process.system "klist >/tmp/haha")
+    (*let
        val outf = TextIO.openAppend (Init.scratchDir ^ "/log/mail.log")
     in
        TextIO.output (outf, s);
        TextIO.closeOut outf
-    end
+    end*)
 
 type session = (TextIO.instream, TextIO.outstream) Unix.proc