haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-12 04:08:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Avoid invalid pattern match #108

Browse Source
This commit is contained in:
Michael Snoyman 2015-06-18 07:16:25 +03:00
parent 7f62b5b8f6
commit b1942934bb
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Stackage/Database.hs
View File

@ -594,12 +594,14 @@ latestHelper pname clause = fmap (fmap toLatest) $ E.select $ E.from $ \(s,ln,p,
getDeps :: GetStackageDatabase m => Text -> m [(Text, Text)]
getDeps pname = run $ do
Just (Entity pid _) <- getBy $ UniquePackage pname
fmap (map toPair) $ E.select $ E.from $ \d -> do
E.where_ $
(d E.^. DepUser E.==. E.val pid)
E.orderBy [E.asc $ d E.^. DepUses]
return (d E.^. DepUses, d E.^. DepRange)
mp <- getBy $ UniquePackage pname
case mp of
Nothing -> return []
Just (Entity pid _) -> fmap (map toPair) $ E.select $ E.from $ \d -> do
E.where_ $
(d E.^. DepUser E.==. E.val pid)
E.orderBy [E.asc $ d E.^. DepUses]
return (d E.^. DepUses, d E.^. DepRange)
where
toPair (E.Value x, E.Value y) = (x, y)