From 8d866d7a5b567e172f14f5bf4d132f35220e993c Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Sat, 19 Apr 2014 15:26:22 +0900
Subject: [PATCH] ghc-modi does not display \n in the case of lisp style.

---
 src/GHCModi.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/GHCModi.hs b/src/GHCModi.hs
index 0d65f19..1d114c6 100644
--- 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