Completion.hs

{-# LANGUAGE OverloadedStrings #-}
module Language.PureScript.Ide.Completion
       (getCompletions, getExactMatches)
       where

import           Prelude                         ()
import           Prelude.Compat

import           Data.Maybe                      (mapMaybe)
import           Language.PureScript.Ide.Filter
import           Language.PureScript.Ide.Matcher
import           Language.PureScript.Ide.Types

-- | Applies the CompletionFilters and the Matcher to the given Modules
--   and sorts the found Completions according to the Matching Score
getCompletions :: [Filter] -> Matcher -> [Module] -> [Match]
getCompletions filters matcher modules =
    runMatcher matcher $ completionsFromModules (applyFilters filters modules)

getExactMatches :: DeclIdent -> [Filter] -> [Module] -> [Match]
getExactMatches search filters modules =
    completionsFromModules $
    applyFilters (equalityFilter search : filters) modules

completionsFromModules :: [Module] -> [Match]
completionsFromModules = foldMap completionFromModule
  where
    completionFromModule :: Module -> [Match]
    completionFromModule (moduleIdent, decls) = mapMaybe (matchFromDecl moduleIdent) decls

matchFromDecl :: ModuleIdent -> ExternDecl -> Maybe Match
matchFromDecl mi = Just . Match mi