haskell/esqueleto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

IN works for subList_select assumes ordering.

Browse Source 
Made ordering explicit.
This commit is contained in:
João Cristóvão 2013-09-11 10:29:40 +01:00
parent 91e480afc6
commit e045bedd8f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/Test.hs
View File

@ -643,7 +643,8 @@ main = do
ret <- select $ ret <- select $
from $ \p -> do from $ \p -> do
let subquery = let subquery =
from $ \bp -> from $ \bp -> do
orderBy [ asc (bp ^. BlogPostAuthorId) ]
return (bp ^. BlogPostAuthorId) return (bp ^. BlogPostAuthorId)
where_ (p ^. PersonId `in_` subList_select subquery) where_ (p ^. PersonId `in_` subList_select subquery)
return p return p