tweaked composite key test to see if we can filter on it's composite pk. We can't, yet

2014-12-23 21:36:54 +01:00 · 2014-12-23 21:36:54 +01:00 · 965c7a55c7
commit 965c7a55c7
parent 3f31f41a71
1 changed files with 3 additions and 1 deletions
--- 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