move stopReactor to exit

soulomoon · soulomoon · commit 05a08da7946f · 2024-03-26T08:24:21.000+08:00
diff --git a/ghcide/src/Development/IDE/LSP/LanguageServer.hs b/ghcide/src/Development/IDE/LSP/LanguageServer.hs
@@ -169,7 +169,7 @@ setupLSP  recorder getHieDbLoc userHandlers getIdeState clientMsgVar = do
   let asyncHandlers = mconcat
         [ userHandlers
         , cancelHandler cancelRequest
-        , exitHandler stopReactorLoop >> exit
+        , exitHandler $ stopReactorLoop >> exit
         , shutdownHandler stopReactorLoop
         ]
         -- Cancel requests are special since they need to be handled

Original file line number	Diff line number	Diff line change
`@@ -169,7 +169,7 @@ setupLSP recorder getHieDbLoc userHandlers getIdeState clientMsgVar = do`
`169`	`169`	`let asyncHandlers = mconcat`
`170`	`170`	`[ userHandlers`
`171`	`171`	`, cancelHandler cancelRequest`
`172`		`- , exitHandler stopReactorLoop >> exit`
	`172`	`+ , exitHandler $ stopReactorLoop >> exit`
`173`	`173`	`, shutdownHandler stopReactorLoop`
`174`	`174`	`]`
`175`	`175`	`-- Cancel requests are special since they need to be handled`