diagnostics

Author: pepeiborra

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

@@ -588,12 +588,16 @@ shakeSessionInit IdeState{..} = do
     putMVar shakeSession initSession
 
 shakeShut :: IdeState -> IO ()
-shakeShut IdeState{..} = withMVar shakeSession $ \runner -> do
+shakeShut ide@IdeState{..} = withMVar shakeSession $ \runner -> do
     -- Shake gets unhappy if you try to close when there is a running
     -- request so we first abort that.
+    liftIO $ logDebug (ideLogger ide) "cancelShakeSession"
     void $ cancelShakeSession runner
+    liftIO $ logDebug (ideLogger ide) "shakeDatabaseProfile"
     void $ shakeDatabaseProfile shakeDb
+    liftIO $ logDebug (ideLogger ide) "shakeStop"
     shakeClose
+    liftIO $ logDebug (ideLogger ide) "progressStop"
     progressStop $ progress shakeExtras