restrict to FOIs

Author: pepeiborra

plugins/hls-eval-plugin/src/Ide/Plugin/Eval/Rules.hs

@@ -9,14 +9,16 @@ import qualified Data.Map.Strict                      as Map
 import           Data.String                          (fromString)
 import           Development.IDE                      (GetModSummaryWithoutTimestamps (GetModSummaryWithoutTimestamps),
                                                        GetParsedModuleWithComments (GetParsedModuleWithComments),
+                                                       IsFileOfInterest (IsFileOfInterest),
+                                                       IsFileOfInterestResult (NotFOI),
                                                        NeedsCompilation (NeedsCompilation),
                                                        RuleBody (RuleNoDiagnostics),
                                                        Rules, defineEarlyCutoff,
                                                        encodeLinkableType,
                                                        fromNormalizedFilePath,
                                                        msrModSummary,
                                                        realSrcSpanToRange,
-                                                       useWithStale_)
+                                                       useWithStale_, use_)
 import           Development.IDE.Core.PositionMapping (toCurrentRange)
 import           Development.IDE.Core.Rules           (computeLinkableType,
                                                        needsCompilationRule)
@@ -73,13 +75,15 @@ evalParsedModuleRule = defineEarlyCutoff $ RuleNoDiagnostics $ \GetEvalComments
     return (Just fingerPrint, Just comments)
 
 -- Redefine the NeedsCompilation rule to set the linkable type to Just _
--- whenever the module has Eval comments. This will ensure that the modules
--- are loaded with linkables and the interactive session won't try to compile
--- them on the fly, leading to much better performance of the evaluate code lens
+-- whenever the module has Eval comments and is of interest.
+-- This will ensure that the modules are loaded with linkables
+-- and the interactive session won't try to compile them on the fly,
+-- leading to much better performance of the evaluate code lens
 redefinedNeedsCompilation :: Rules ()
 redefinedNeedsCompilation = defineEarlyCutoff $ RuleNoDiagnostics $ \NeedsCompilation f -> do
     (comments, _) <- useWithStale_ GetEvalComments f
-    if nullComments comments then needsCompilationRule f else do
+    isFOI <- use_ IsFileOfInterest f
+    if nullComments comments || isFOI == NotFOI then needsCompilationRule f else do
         ms <- msrModSummary . fst <$> useWithStale_ GetModSummaryWithoutTimestamps f
         let ms' = ms{ms_hspp_opts = df'}
             df' = xopt_set (ms_hspp_opts ms) LangExt.TemplateHaskell