From 6f6c973d074150665a9df89af98a92a2717726f3 Mon Sep 17 00:00:00 2001 From: Chris Done Date: Mon, 15 Dec 2014 13:13:04 +0100 Subject: [PATCH] Fix up package where clause --- Handler/Package.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Handler/Package.hs b/Handler/Package.hs index 19c2f9b..2613703 100644 --- a/Handler/Package.hs +++ b/Handler/Package.hs @@ -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