Merge pull request #330 from DanielG/dev-error

Remove dedicated exception handling in `check` completely
This commit is contained in:
Kazu Yamamoto
2014-08-19 11:52:09 +09:00
4 changed files with 2 additions and 21 deletions

View File

@@ -12,7 +12,6 @@ import qualified GHC as G
import Language.Haskell.GhcMod.Logger
import Language.Haskell.GhcMod.Monad (IOish, GhcModT, overrideGhcUserOptions)
import Language.Haskell.GhcMod.Target (setTargetFiles)
import Language.Haskell.GhcMod.Utils (liftExceptions)
----------------------------------------------------------------
@@ -22,7 +21,7 @@ checkSyntax :: IOish m
=> [FilePath] -- ^ The target files.
-> GhcModT m String
checkSyntax [] = return ""
checkSyntax files = liftExceptions $ either id id <$> check files
checkSyntax files = either id id <$> check files
----------------------------------------------------------------
@@ -43,7 +42,7 @@ expandTemplate :: IOish m
=> [FilePath] -- ^ The target files.
-> GhcModT m String
expandTemplate [] = return ""
expandTemplate files = liftExceptions $ either id id <$> expand files
expandTemplate files = either id id <$> expand files
----------------------------------------------------------------