Avoid unnecessary work on InitialLoad when checkProject is off

haskell · Sep 2, 2020 · ae4c638 · ae4c638
1 parent b4053c5
commit ae4c638
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/session-loader/Development/IDE/Session.hs b/session-loader/Development/IDE/Session.hs
@@ -283,9 +283,9 @@ loadSession dir = do
           -- files in the project so that `knownFiles` can learn about them and
           -- we can generate a complete module graph
           liftIO $ modifyVar_ knownFilesVar $ traverseHashed $ pure . HashSet.union (HashSet.fromList cfps')
-          mmt <- uses GetModificationTime cfps'
-          let cs_exist = catMaybes (zipWith (<$) cfps' mmt)
           when checkProject $ do
+            mmt <- uses GetModificationTime cfps'
+            let cs_exist = catMaybes (zipWith (<$) cfps' mmt)
             modIfaces <- uses GetModIface cs_exist
             -- update xports map
             extras <- getShakeExtras