We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent c331ae6 commit cb21b0aCopy full SHA for cb21b0a
ghcide/src/Development/IDE/Main.hs
@@ -366,7 +366,7 @@ defaultMain recorder Arguments{..} = withHeapStats (cmapWithPrio LogHeapStats re
366
-- TODO: this is nuts, we're converting back to JSON just to get a fingerprint
367
let cfgObj = J.toJSON cfg
368
-- tryTakeMVar is essential here, as the MVar might be empty if the server is still starting up
369
- -- and it might be gone if the server is shutting down.
+ -- and it might be gone if the server shut down.
370
liftIO $ bracket (liftIO $ tryTakeMVar ideStateVar) (`whenJust` putMVar ideStateVar) $ \case
371
Nothing -> pure ()
372
Just ide -> liftIO $ do
0 commit comments