Merge pull request #27 from jcristovao/upstream

IN works for subList_select assumes ordering.
2013-09-13 14:57:36 -07:00 · 2013-09-13 14:57:36 -07:00 · 27aafd8bc2
commit 27aafd8bc2
parent 91e480afc6 e045bedd8f
1 changed files with 2 additions and 1 deletions
--- a/test/Test.hs
+++ b/test/Test.hs
@ -643,7 +643,8 @@ main = do
          ret <- select $
                 from $ \p -> do
                 let subquery =
-                       from $ \bp ->
+                       from $ \bp -> do
+                       orderBy [ asc (bp ^. BlogPostAuthorId) ]
                       return (bp ^. BlogPostAuthorId)
                 where_ (p ^. PersonId `in_` subList_select subquery)
                 return p