+ , completionHandler = pure $ \req -> do
+ let res = CompletionList (CompletionListType False (List [item]))
+ item =
+ CompletionItem "foo" (Just CiConstant) (Just (List [])) Nothing
+ Nothing Nothing Nothing Nothing Nothing Nothing Nothing
+ Nothing Nothing Nothing Nothing Nothing
+ send $ RspCompletion $ makeResponseMessage req res