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

error handling for hlint.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-03-28 13:51:47 +09:00
parent f8249ae449
commit 4911db0a7a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/GHCModi.hs
View File

@ -155,9 +155,11 @@ findSym set mvar sym = do
lintStx :: Set FilePath -> LineSeparator -> FilePath lintStx :: Set FilePath -> LineSeparator -> FilePath
-> Ghc ([String], Bool, Set FilePath) -> Ghc ([String], Bool, Set FilePath)
lintStx set (LineSeparator lsep) fileOpts = liftIO $ do lintStx set (LineSeparator lsep) fileOpts = liftIO $ E.handle handler $ do
msgs <- map (intercalate lsep . lines) <$> lint hopts file msgs <- map (intercalate lsep . lines) <$> lint hopts file
return (msgs, True, set) -- fixme: error handling return (msgs, True, set)
where where
file = fileOpts -- fixme file = fileOpts -- fixme
hopts = [] -- fixme hopts = [] -- fixme
-- let's continue the session
handler (SomeException _) = return ([], True, set)