From a4a04db98c7c68f0fe7c340e2609b98f68dbc4af Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Fri, 19 Jun 2015 21:38:08 -0300
Subject: [PATCH] Remove non-determinism from a test.

---
 test/Test.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/test/Test.hs b/test/Test.hs
index 84696ef..1967322 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -1147,6 +1147,7 @@ main = do
                  where_ $ exists $
                           from $ \bp -> do
                           where_ (bp ^. BlogPostAuthorId ==. p ^. PersonId)
+                 orderBy [asc (p ^. PersonName)]
                  return p
           liftIO $ ret `shouldBe` [ Entity p1k p1
                                   , Entity p3k p3 ]