Log to file (for now, better configuration file later)

chrisdone-archive · Jan 11, 2014 · d5e222b · d5e222b
1 parent ae36500
commit d5e222b
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/src/TryHaskell.hs b/src/TryHaskell.hs
@@ -126,9 +126,11 @@ eval stats =
   do ip <- logVisit stats
      mex <- getParam "exp"
      args <- getParam "args"
-     liftIO (putStrLn (S.unpack (decodeUtf8 ip) ++
-                       "> " ++
-                       maybe "" (S.unpack . decodeUtf8) mex))
+     liftIO (appendFile "/tmp/tryhaskell-log"
+                        (S.unpack (decodeUtf8 ip) ++
+                         "> " ++
+                         maybe "" (S.unpack . decodeUtf8) mex ++
+                         "\n"))
      case mex of
        Nothing -> error "exp expected"
        Just ex ->