From 965c7a55c79a7a05663dd369363525f2fc2da6e0 Mon Sep 17 00:00:00 2001
From: Alberto Valverde <alberto@toscat.net>
Date: Tue, 23 Dec 2014 21:36:54 +0100
Subject: [PATCH] tweaked composite key test to see if we can filter on it's
 composite pk. We can't, yet

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

diff --git a/test/Test.hs b/test/Test.hs
index d55d433..47f6424 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -945,7 +945,9 @@ main = do
               Right thePk = keyFromValues [ PersistInt64 $ fromIntegral x
                                           , PersistInt64 $ fromIntegral y]
           pPk <- insert p
-          [Entity _ ret] <- select $ from $ return
+          [Entity _ ret] <- select $ from $ \p' -> do
+            where_ (p'^.PointId ==. val pPk)
+            return p'
           liftIO $ do
             ret `shouldBe` p
             pPk `shouldBe` thePk