log hiedb exceptions before killing the server

Author: pepeiborra

ghcide/src/Development/IDE/LSP/LanguageServer.hs

@@ -141,7 +141,10 @@ runLanguageServer options inH outH getHieDbLoc defaultConfig onConfigurationChan
             logInfo (ideLogger ide) $ T.pack $ "Registering ide configuration: " <> show initConfig
             registerIdeConfiguration (shakeExtras ide) initConfig
 
-            _ <- flip forkFinally (const exitClientMsg) $ runWithDb dbLoc $ \hiedb hieChan -> do
+            let handleHieDbException e = do
+                    logError (ideLogger ide) (T.pack $ "Unexpected exception in hiedb thread: " <> show e)
+                    exitClientMsg
+            _ <- flip forkFinally handleHieDbException $ runWithDb dbLoc $ \hiedb hieChan -> do
               putMVar dbMVar (hiedb,hieChan)
               forever $ do
                 msg <- readChan clientMsgChan