Show more relevant bindings in typed holes

2014-07-06 09:45:02 +02:00
parent 75b838bab6
commit 72679c619c
2 changed files with 12 additions and 2 deletions
--- a/Language/Haskell/GhcMod/Check.hs
+++ b/Language/Haskell/GhcMod/Check.hs
@@ -32,7 +32,7 @@ checkSyntax files = withErrorHandler sessionName $ do
 check :: [FilePath]  -- ^ The target files.
      -> GhcMod (Either String String)
 check fileNames = do
-  withLogger setAllWaringFlags $ do
+  withLogger (setAllWaringFlags . setNoMaxRelevantBindings) $ do
    setTargetFiles fileNames

 ----------------------------------------------------------------