Fix completion type in test

Author: xsebek

test/functional/Completion.hs

@@ -158,7 +158,7 @@ tests = testGroup "completions" [
          item <- getCompletionByLabel "Alternative" compls
          liftIO $ do
              item ^. label @?= "Alternative"
-             item ^. kind @?= Just CompletionItemKind_Function
+             item ^. kind @?= Just CompletionItemKind_Struct
              item ^. detail @?= Just "Control.Applicative"
 
     , testCase "import second function completion" $ runSession hlsCommand fullCaps "test/testdata/completion" $ do