unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-11-12 04:34:38 +03:00
Code Issues Projects Releases Wiki Activity

Order search results by score

Browse Source
This commit is contained in:
Noah Haasis 2019-04-03 05:02:12 +02:00
parent 1188927346
commit fe528db534
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
parser-typechecker/src/Unison/Codebase/Branch.hs
View File

@ -16,6 +16,7 @@ import Control.Lens
import Control.Monad (join)
import Data.Bifunctor (bimap)
import Data.Foldable
import Data.List.Extra (nubOrd)
import Data.Map (Map)
import qualified Data.Map as Map
import Data.Set (Set)
@ -902,9 +903,10 @@ asSearchResults b =
tp(n,r) = SR.typeResult (hashQualifiedTypeName b n r) r (hashNamesForType r b)
-- note: I expect these two functions will go away
-- Returns matching search results ordered by score
searchBranch :: forall score. Ord score => Branch0 -> (Name -> Name -> Maybe score) -> [HashQualified] -> [SearchResult]
searchBranch b score queries =
toList . Set.map snd $
nubOrd . fmap snd . toList $
searchTermNamespace b score queries <> searchTypeNamespace b score queries
where
searchTermNamespace :: forall score. Ord score =>