X-Git-Url: https://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=test%2Fdummy-server%2FMain.hs;h=f0819d84c3535aadb75500f05e38c6d1b06ae4b0;hp=ab917e8fa50ff825b35b996f78fd94fb80ad96b6;hb=82b289c0c28f425f2bdce9c209e927d9595585ee;hpb=59db0228a19fd6bedd0f611e4369e11a4e514761

diff --git a/test/dummy-server/Main.hs b/test/dummy-server/Main.hs
index ab917e8..f0819d8 100644
--- 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