WIP: do crazy postgres upsert

2014-09-09 22:46:42 -07:00
parent a49fb69e58
commit 9f2a01ae46
3 changed files with 28 additions and 9 deletions
@@ -102,7 +102,7 @@ spec = around appWithFixture $ do
            p <- request methodPut "/compound_pk?k1=eq.12&k2=eq.42" []
                 [json| { "k1":12, "k2":42, "extra":3 } |]
            liftIO $ do
+              simpleBody p `shouldBe` ""
              simpleStatus p `shouldBe` created201
              simpleHeaders p `shouldSatisfy` matchHeader
                hLocation "/compound_pk\\?k1=eq\\.12&k2=eq\\.42"
-              simpleBody p `shouldBe` ""