More fixes

michaelpj · michaelpj · commit 6d010779846f · 2024-02-08T14:47:12.000Z
diff --git a/plugins/hls-refactor-plugin/test/Main.hs b/plugins/hls-refactor-plugin/test/Main.hs
@@ -81,7 +81,7 @@ initializeTests = withResource acquire release tests
   where
     tests :: IO (TResponseMessage Method_Initialize) -> TestTree
     tests getInitializeResponse = testGroup "initialize response capabilities"
-        [ chk "   code action"             _codeActionProvider  (Just (InR (CodeActionOptions {_workDoneProgress = Nothing, _codeActionKinds = Nothing, _resolveProvider = Just False})))
+        [ chk "   code action"             _codeActionProvider  (Just (InR (CodeActionOptions {_workDoneProgress = Just False, _codeActionKinds = Nothing, _resolveProvider = Just False})))
         , che "   execute command"         _executeCommandProvider [extendImportCommandId]
         ]
       where

Original file line number	Diff line number	Diff line change
`@@ -81,7 +81,7 @@ initializeTests = withResource acquire release tests`
`81`	`81`	`where`
`82`	`82`	`tests :: IO (TResponseMessage Method_Initialize) -> TestTree`
`83`	`83`	`tests getInitializeResponse = testGroup "initialize response capabilities"`
`84`		`- [ chk " code action" _codeActionProvider (Just (InR (CodeActionOptions {_workDoneProgress = Nothing, _codeActionKinds = Nothing, _resolveProvider = Just False})))`
	`84`	`+ [ chk " code action" _codeActionProvider (Just (InR (CodeActionOptions {_workDoneProgress = Just False, _codeActionKinds = Nothing, _resolveProvider = Just False})))`
`85`	`85`	`, che " execute command" _executeCommandProvider [extendImportCommandId]`
`86`	`86`	`]`
`87`	`87`	`where`