ghc-modi does not display \n in the case of lisp style.

2014-04-19 15:26:22 +09:00 · 2014-04-19 15:26:22 +09:00 · 8d866d7a5b
parent 3c8fea85fb
commit 8d866d7a5b
1 changed files with 4 additions and 1 deletions
--- a/src/GHCModi.hs
+++ b/src/GHCModi.hs
@ -157,7 +157,10 @@ loop opt set ls mvar readLog  = do
        "info"  -> showInfo set ls readLog arg
        "type"  -> showType opt set ls readLog arg
        _       -> return ([], False, set)
-    liftIO $ putStrLn $ convert opt msgs
+    let put = case outputStyle opt of
+            LispStyle  -> putStr
+            PlainStyle -> putStrLn
+    liftIO $ put $ convert opt msgs
    liftIO $ putStrLn $ if ok then "OK" else "NG"
    liftIO $ hFlush stdout
    when ok $ loop opt set' ls mvar readLog