FIxed race condition in dev server that causes reload to not work

Fixes #1513
digitallyinduced · Oct 20, 2022 · 30d03a7 · 30d03a7
1 parent ca46919
commit 30d03a7
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/exe/IHP/IDE/DevServer.hs b/exe/IHP/IDE/DevServer.hs
@@ -151,7 +151,11 @@ handleAction state AssetChanged = do
 
 handleAction state@(AppState { appGHCIState, statusServerState }) HaskellFileChanged = do
     case appGHCIState of
-        AppGHCIModulesLoaded { .. } -> sendGhciCommand process ":r"
+        AppGHCIModulesLoaded { .. } -> do
+            -- The app might already have been triggered
+            -- but the the "Server started" message might not have been received yet
+            sendGhciCommand process "ClassyPrelude.uninterruptibleCancel app"
+            sendGhciCommand process ":r"
         RunningAppGHCI { .. } -> do
             sendGhciCommand process "ClassyPrelude.uninterruptibleCancel app"
             sendGhciCommand process ":r"