error handling for hlint.

2014-03-28 13:51:47 +09:00 · 2014-03-28 13:51:47 +09:00 · 4911db0a7a
commit 4911db0a7a
parent f8249ae449
1 changed files with 4 additions and 2 deletions
--- a/src/GHCModi.hs
+++ b/src/GHCModi.hs
@ -155,9 +155,11 @@ findSym set mvar sym = do

 lintStx :: Set FilePath -> LineSeparator -> 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
-    return (msgs, True, set) -- fixme: error handling
+    return (msgs, True, set)
  where
    file = fileOpts -- fixme
    hopts = [] -- fixme
+    -- let's continue the session
+    handler (SomeException _) = return ([], True, set)