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

Make better check in presence of typed holes

Browse Source
This commit is contained in:
Alejandro Serrano
2014-08-14 20:51:49 +02:00
parent 637fd7e66f
commit fdbecdddce
2 changed files with 73 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Language/Haskell/GhcMod/Check.hs
View File

@@ -36,10 +36,14 @@ checkSyntax files = withErrorHandler sessionName $
check :: IOish m
=> [FilePath] -- ^ The target files.
-> GhcModT m (Either String String)
check fileNames = overrideGhcUserOptions $ \ghcOpts ->
withLogger (setAllWaringFlags . setNoMaxRelevantBindings . Gap.setWarnTypedHoles . Gap.setDeferTypeErrors) $ do
_ <- G.setSessionDynFlags =<< addCmdOpts ghcOpts =<< G.getSessionDynFlags
setTargetFiles fileNames
check fileNames = overrideGhcUserOptions $ \ghcOpts -> do
withLoggerTwice
setAllWaringFlags
(do _ <- G.setSessionDynFlags =<< addCmdOpts ghcOpts =<< G.getSessionDynFlags
setTargetFiles fileNames)
(setAllWaringFlags . setNoMaxRelevantBindings . Gap.setWarnTypedHoles)
(do _ <- G.setSessionDynFlags =<< addCmdOpts ghcOpts =<< G.getSessionDynFlags
setTargetFiles fileNames)
----------------------------------------------------------------