Simplify (thanks Neil!)

Author: pepeiborra

ghcide/src/Development/IDE/Plugin/Completions.hs

@@ -146,18 +146,11 @@ getCompletionsLSP lsp ide
                 let clientCaps = clientCapabilities $ shakeExtras ide
                 snippets <- WithSnippets . completionSnippetsOn <$> getClientConfig lsp
                 allCompletions <- getCompletions ideOpts cci' parsedMod bindMap pfix' clientCaps snippets
-                let topCompletions = List $ take 20 allCompletions
-                    isComplete = allCompletions `longerThan` 20
-                pure $ CompletionList (CompletionListType isComplete topCompletions)
+                let (topCompletions, rest) = splitAt maxCompletions allCompletions
+                pure $ CompletionList (CompletionListType (null rest) (List topCompletions))
               _ -> return (Completions $ List [])
           _ -> return (Completions $ List [])
       _ -> return (Completions $ List [])
-
-longerThan :: [a] -> Int -> Bool
-longerThan [] _ = False
-longerThan _ 0 = True
-longerThan (_ : aa) n = longerThan aa (n -1)
-
 setHandlersCompletion :: PartialHandlers Config
 setHandlersCompletion = PartialHandlers $ \WithMessage{..} x -> return x{
     LSP.completionHandler = withResponse RspCompletion getCompletionsLSP