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

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