minor fix

Author: soulomoon

ghcide/session-loader/Development/IDE/Session.hs

@@ -610,12 +610,11 @@ loadSessionWithOptions recorder SessionLoadingOptions{..} dir = do
                                        [ "No cradle target found. Is this file listed in the targets of your cradle?"
                                        , "If you are using a .cabal file, please ensure that this module is listed in either the exposed-modules or other-modules section"
                                        ]
+
+          void $ modifyVar' fileToFlags $ Map.insert hieYaml this_flags_map
+          void $ modifyVar' filesMap $ flip HM.union (HM.fromList (map ((,hieYaml) . fst) $ concatMap toFlagsMap all_targets))
           -- The VFS doesn't change on cradle edits, re-use the old one.
           restartShakeSession VFSUnmodified "new component" [] $ do
-            void $ modifyVar' fileToFlags $
-                Map.insert hieYaml this_flags_map
-            void $ modifyVar' filesMap $
-                flip HM.union (HM.fromList (map ((,hieYaml) . fst) $ concatMap toFlagsMap all_targets))
             key1 <- extendKnownTargets all_targets
             key2 <- invalidateShakeCache
             return [key1, key2]

ghcide/src/Development/IDE/Core/FileExists.hs

@@ -124,7 +124,6 @@ modifyFileExists state changes = do
     let keys1 = map (toKey GetFileExists . fst) fileExistChanges
     let keys2 = map (toKey GetModificationTime . fst) fileModifChanges
     return (keys1 <> keys2)
-  return keys
 
 fromChange :: FileChangeType -> Maybe Bool
 fromChange FileChangeType_Created = Just True

ghcide/src/Development/IDE/Core/FileStore.hs

@@ -250,10 +250,8 @@ typecheckParentsAction recorder nfp = do
 setSomethingModified :: VFSModified -> IdeState -> String -> IO [Key] -> IO ()
 setSomethingModified vfs state reason actionBetweenSession = do
     -- Update database to remove any files that might have been renamed/deleted
-    void $ restartShakeSession (shakeExtras state) vfs reason [] $ do
-        keys <- actionBetweenSession
-        atomically $ writeTQueue (indexQueue $ hiedbWriter $ shakeExtras state) (\withHieDb -> withHieDb deleteMissingRealFiles)
-        return keys
+    atomically $ writeTQueue (indexQueue $ hiedbWriter $ shakeExtras state) (\withHieDb -> withHieDb deleteMissingRealFiles)
+    void $ restartShakeSession (shakeExtras state) vfs reason [] actionBetweenSession
 
 registerFileWatches :: [String] -> LSP.LspT Config IO Bool
 registerFileWatches globs = do