Bump haskell-lsp bounds

[lsp-test.git] / test / dummy-server / Main.hs

diff --git a/test/dummy-server/Main.hs b/test/dummy-server/Main.hs
index ab917e8fa50ff825b35b996f78fd94fb80ad96b6..f0819d84c3535aadb75500f05e38c6d1b06ae4b0 100644 (file)
--- a/test/dummy-server/Main.hs
+++ b/test/dummy-server/Main.hs
@@ -112,7 +112,7 @@ handlers lfvar = def
   , completionHandler = pure $ \req -> do
       let res = CompletionList (CompletionListType False (List [item]))
           item =
-            CompletionItem "foo" (Just CiConstant) (List []) Nothing
+            CompletionItem "foo" (Just CiConstant) (Just (List [])) Nothing
             Nothing Nothing Nothing Nothing Nothing Nothing Nothing
             Nothing Nothing Nothing Nothing Nothing
       send $ RspCompletion $ makeResponseMessage req res