aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--app/Server.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/app/Server.hs b/app/Server.hs
index 369221a..557459f 100644
--- a/app/Server.hs
+++ b/app/Server.hs
@@ -1532,11 +1532,11 @@ getHoogleDocs packageId (HCE.HaskellModuleName moduleName) itemSort name
A.Array vector ->
let items = mapMaybe valueToHoogleResultItem $ V.toList vector
findItem :: Bool -> [HoogleResultItem] -> Maybe HoogleResultItem
- findItem exactModuleMatch =
+ findItem laxModuleMatch =
L.find
(\HoogleResultItem {sort = s, moduleName = m} ->
- s == itemSort && (exactModuleMatch || m == moduleName))
- in case findItem True items <|> findItem False items of
+ s == itemSort && (laxModuleMatch || m == moduleName))
+ in case findItem False items <|> findItem True items of
Just item -> return $ htmlDocs item
_ -> error404 ""
_ ->