From ba9791b6b4858c84a5084fd577a17438b705608a Mon Sep 17 00:00:00 2001
From: Greg Weber <greg@gregweber.info>
Date: Fri, 19 Jun 2015 17:19:45 -0700
Subject: [PATCH] test case for multiple DISTINCT ON columns

---
 stack.yaml   | 3 +++
 test/Test.hs | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/stack.yaml b/stack.yaml
index c241aa7..7bdeb7d 100644
--- a/stack.yaml
+++ b/stack.yaml
@@ -1 +1,4 @@
+flags:
+  esqueleto:
+    postgresql: true
 resolver: nightly-2015-06-09
diff --git a/test/Test.hs b/test/Test.hs
index d1c5c9b..85acff8 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -818,7 +818,7 @@ main = do
             , BlogPost "C" p2k ]
           ret <- select $
                  from $ \bp ->
-                 distinctOn [bp ^. BlogPostAuthorId] $ do
+                 distinctOn [bp ^. BlogPostAuthorId, bp ^. BlogPostTitle] $ do
                  orderBy [asc (bp ^. BlogPostAuthorId), desc (bp ^. BlogPostTitle)]
                  return bp
           liftIO $ ret `shouldBe` sortBy (comparing (blogPostAuthorId . entityVal)) [bpB, bpC]