GitLab

af65c890

by Wolfgang Jeltsch at 2026-05-14T15:35:37+03:00

Adapt the tests that use the changed operations directly

@@ -48,13 +48,13 @@ main = do
      liftIO $ do
 -    _emss <- downsweep hsc_env mkUnknownDiagnostic Nothing [] [] False
 +    _emss <- downsweep hsc_env mkUnknownDiagnostic Nothing [] Nothing [] False
      flushFinderCaches (hsc_FC hsc_env) (hsc_unit_env hsc_env)
      createDirectoryIfMissing False "mydir"
      renameFile "B.hs" "mydir/B.hs"
 -    (_, nodes) <- downsweep hsc_env mkUnknownDiagnostic Nothing [] [] False
 +    (_, nodes) <- downsweep hsc_env mkUnknownDiagnostic Nothing [] Nothing [] False
      -- If 'checkSummaryTimestamp' were to call 'addHomeModuleToFinder' with
      -- (ms_location old_summary) like summariseFile used to instead of

@@ -169,7 +169,7 @@ go label mods cnd =
      setTargets [tgt]
      hsc_env <- getSession
 -    (_, nodes) <- liftIO $ downsweep hsc_env mkUnknownDiagnostic Nothing [] [] False
 +    (_, nodes) <- liftIO $ downsweep hsc_env mkUnknownDiagnostic Nothing [] Nothing [] False
      it label $ cnd (mgModSummaries nodes)

@@ -67,7 +67,7 @@ main = do
            keyC = msKey msC
        let mkGraph s = do
 -            ([], nodes) <- downsweepFromRootNodes hsc_env mempty [] True DownsweepUseFixed s []
 +            ([], nodes) <- downsweepFromRootNodes hsc_env mempty Nothing [] True DownsweepUseFixed s []
              return $ mkModuleGraph nodes
        graph <- liftIO $ mkGraph [ModuleNodeCompile msC]