Limit the number of valid hole fits

Originally haskell/ghcide#888
haskell · Jun 13, 2021 · 31757fe · 31757fe
1 parent 7d7c2ef
commit 31757fe
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/ghcide/src/Development/IDE/GHC/Compat.hs b/ghcide/src/Development/IDE/GHC/Compat.hs
@@ -184,6 +184,7 @@ import           Data.List              (foldl')
 import           Data.List              (foldl', isSuffixOf)
 #endif
 
+import           Control.Applicative    ((<|>))
 import qualified Data.Map               as M
 import           DynamicLoading
 import           Plugins                (Plugin (parsedResultAction),
@@ -303,7 +304,7 @@ setUpTypedHoles df
   $ df
   { refLevelHoleFits = Just 1   -- becomes slow at higher levels
   , maxRefHoleFits   = Just 10  -- quantity does not impact speed
-  , maxValidHoleFits = Nothing  -- quantity does not impact speed
+  , maxValidHoleFits = maxValidHoleFits df <|> Just 10  -- quantity does not impact speed
   }