git.iko.soy/rowtype-yoga/purescript-docs-search
on master help sign in
Refactor sorting by package popularity
commitf1cd6a5139acb7771233f25611df33deb6a62cd4 authorklntsky <klntsky@gmail.com> dateSun 26 Jul 2020, 00:28 (6 years ago) parent853027f
3 files changed+6−8
compare with master
unifiedsplit
src/Docs/Search/IndexBuilder.purs+1−1 src/Docs/Search/Interactive.purs+1−1 src/Docs/Search/PackageIndex.purs+4−6
src/Docs/Search/IndexBuilder.purs+1−1
@@ -78,7 +78,7 @@ run' cfg = do
7878 let scores = mkScores packageMetas
7979 index = mkDeclarations scores docsJsons
8080 typeIndex = mkTypeIndex scores docsJsons
81− packageInfo = mkPackageInfo packageMetas
81+ packageInfo = mkPackageInfo scores packageMetas
8282 moduleIndex = mkPackedModuleIndex index
8383
8484 createDirectories cfg
src/Docs/Search/Interactive.purs+1−1
@@ -51,7 +51,7 @@ run cfg = launchAff_ $ do
5151 let scores = mkScores packageMetas
5252 index = mkDeclarations scores docsJsons
5353 typeIndex = docsJsons >>= resultsWithTypes scores
54− packageIndex = mkPackageIndex $ mkPackageInfo packageMetas
54+ packageIndex = mkPackageIndex $ mkPackageInfo scores packageMetas
5555 moduleIndex = unpackModuleIndex $ mkPackedModuleIndex index
5656 engineState = mkEngineState (unwrap index) typeIndex packageIndex moduleIndex scores
5757
src/Docs/Search/PackageIndex.purs+4−6
@@ -2,7 +2,7 @@ module Docs.Search.PackageIndex where
22
33import Docs.Search.Config (config)
44import Docs.Search.Extra (stringToList)
5−import Docs.Search.Score (Scores, getPackageScore, mkScores, normalizePackageName)
5+import Docs.Search.Score (Scores, getPackageScore, normalizePackageName)
66
77import Prelude
88
@@ -35,15 +35,13 @@ type PackageIndex = Trie Char PackageResult
3535type PackageInfo = Array PackageResult
3636
3737
38−mkPackageInfo :: Array PackageMeta -> PackageInfo
39−mkPackageInfo pms =
38+mkPackageInfo :: Scores -> Array PackageMeta -> PackageInfo
39+mkPackageInfo packageScores pms =
4040 Array.fromFoldable $
4141 Map.values $
4242 Array.foldr insert mempty pms
4343
4444 where
45− packageScores = mkScores pms
46−
4745 insert
4846 :: PackageMeta
4947 -> Map String PackageResult
@@ -59,7 +57,7 @@ mkPackageInfo pms =
5957 name
6058 { name
6159 , description: description
62− , score: getPackageScore packageScores name
60+ , score: getPackageScore packageScores $ normalizePackageName name
6361 , dependencies: unwrap dependencies <#> (_.packageName)
6462 , repository: repository <#> (_.url)
6563 }