From e045bedd8f071fb6d642fbe14570ea727a896e94 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jo=C3=A3o=20Crist=C3=B3v=C3=A3o?= <jmacristovao@gmail.com>
Date: Wed, 11 Sep 2013 10:29:40 +0100
Subject: [PATCH] IN works for subList_select assumes ordering. Made ordering
 explicit.

---
 test/Test.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/test/Test.hs b/test/Test.hs
index 3d92243..908afa1 100644
--- 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