, 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