hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-04-19 15:26:22 +09:00
parent 3c8fea85fb
commit 8d866d7a5b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/GHCModi.hs
View File

@ -157,7 +157,10 @@ loop opt set ls mvar readLog = do
"info" -> showInfo set ls readLog arg "info" -> showInfo set ls readLog arg
"type" -> showType opt set ls readLog arg "type" -> showType opt set ls readLog arg
_ -> return ([], False, set) _ -> 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 $ putStrLn $ if ok then "OK" else "NG"
liftIO $ hFlush stdout liftIO $ hFlush stdout
when ok $ loop opt set' ls mvar readLog when ok $ loop opt set' ls mvar readLog