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

comment.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-04-24 12:53:14 +09:00
parent 4074c3d751
commit 3059a295dc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/GHCModi.hs
View File

@ -117,9 +117,9 @@ main = E.handle cmdHandler $
void $ forkIO $ setupDB cradle mlibdir opt mvar void $ forkIO $ setupDB cradle mlibdir opt mvar
run cradle mlibdir opt $ loop opt S.empty mvar run cradle mlibdir opt $ loop opt S.empty mvar
where where
-- this is just in case.
-- If an error is caught here, it is a bug of GhcMod library.
someHandler (SomeException e) = do someHandler (SomeException e) = do
-- fixme: this is not perfece for -l
-- because each command expect its own s-expression.
let ret = convert opt $ "ghc-modi:0:0:" ++ show e let ret = convert opt $ "ghc-modi:0:0:" ++ show e
putStr ret putStr ret
putStrLn "NG" putStrLn "NG"