Remove dedicated exception handling in check completely

Exceptions are already caught at the top level so this is unnecessary.
This commit is contained in:
Daniel Gröber
2014-08-19 04:49:44 +02:00
parent 1b5917c70e
commit 147dd90ee7
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
----------------------------------------------------------------
@@ -47,7 +46,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
----------------------------------------------------------------