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

Fix up package where clause

Browse Source
This commit is contained in:
Chris Done 2014-12-15 13:13:04 +01:00
parent f8835ce14d
commit 6f6c973d07
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Handler/Package.hs
View File

@ -124,7 +124,8 @@ getNightly pn =
where boilerplate (E.Value a,E.Value b,E.Value c,E.Value d) =
(a,b,c,d)
query (p,n,s) =
do E.where_ ((p ^. PackageStackage E.==. n ^. NightlyStackage) E.&&.
do E.where_ ((p ^. PackageName' E.==. E.val pn) E.&&.
(p ^. PackageStackage E.==. n ^. NightlyStackage) E.&&.
(s ^. StackageId E.==. n ^. NightlyStackage))
E.orderBy [E.desc (n ^. NightlyDay)]
return (n ^. NightlyDay
@ -140,7 +141,8 @@ getLts pn =
where boilerplate (E.Value a,Value b,Value c,Value d) =
(a,b,c,d)
query (p,n,s) =
do E.where_ ((p ^. PackageStackage E.==. n ^. LtsStackage) E.&&.
do E.where_ ((p ^. PackageName' E.==. E.val pn) E.&&.
(p ^. PackageStackage E.==. n ^. LtsStackage) E.&&.
(s ^. StackageId E.==. n ^. LtsStackage))
E.orderBy [E.desc (n ^. LtsMajor),E.desc (n ^. LtsMinor)]
return (n ^. LtsMajor