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

Merge pull request #27 from jcristovao/upstream

Browse Source 
IN works for subList_select assumes ordering.
This commit is contained in:
Felipe Lessa 2013-09-13 14:57:36 -07:00
commit 27aafd8bc2
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