diff --git a/ghcide/src/Development/IDE/GHC/Compat.hs b/ghcide/src/Development/IDE/GHC/Compat.hs index 79840ba37f..030c3f3d14 100644 --- a/ghcide/src/Development/IDE/GHC/Compat.hs +++ b/ghcide/src/Development/IDE/GHC/Compat.hs @@ -90,6 +90,11 @@ import qualified Avail #if MIN_VERSION_ghc(8,8,0) import StringBuffer (hPutStringBuffer) #endif + +import qualified Data.Map as M +import DynamicLoading +import Plugins (Plugin (parsedResultAction), + withPlugins) import qualified SysTools #if !MIN_VERSION_ghc(8,8,0) @@ -110,6 +115,7 @@ import Data.IORef import qualified Data.Map as Map import Data.List (foldl') +import Control.Applicative ((<|>)) #if MIN_VERSION_ghc(9,0,0) import qualified Data.Set as S @@ -193,9 +199,9 @@ setUpTypedHoles df $ flip gopt_unset Opt_SortValidHoleFits $ flip gopt_unset Opt_UnclutterValidHoleFits $ df - { refLevelHoleFits = Just 1 -- becomes slow at higher levels - , maxRefHoleFits = Just 10 -- quantity does not impact speed - , maxValidHoleFits = Nothing -- quantity does not impact speed + { refLevelHoleFits = refLevelHoleFits df <|> Just 1 -- becomes slow at higher levels + , maxRefHoleFits = maxRefHoleFits df <|> Just 10 -- quantity does not impact speed + , maxValidHoleFits = maxValidHoleFits df <|> Just 10 -- quantity does not impact speed }