From 7354bf0ada26b134c8d276d48e6fbb93324ec4c1 Mon Sep 17 00:00:00 2001 From: Fujimura Daisuke Date: Tue, 19 Aug 2014 21:30:07 +0800 Subject: [PATCH] Minor code format fix --- test/QuerySpec.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/QuerySpec.hs b/test/QuerySpec.hs index f63ed30..8615919 100644 --- a/test/QuerySpec.hs +++ b/test/QuerySpec.hs @@ -62,10 +62,10 @@ spec = around withCleanDatabase $ do before (insertDuplicatingDocument `catch` \(_ :: Failure) -> return ()) $ do it "inserts documents before it" $ - db ( count $ select ["name" =: "Yankees", "league" =: "American"] "team") `shouldReturn` 1 + db (count $ select ["name" =: "Yankees", "league" =: "American"] "team") `shouldReturn` 1 it "doesn't insert documents after it" $ - db ( count $ select ["name" =: "Indians", "league" =: "American"] "team") `shouldReturn` 0 + db (count $ select ["name" =: "Indians", "league" =: "American"] "team") `shouldReturn` 0 it "raises exception" $ insertDuplicatingDocument `shouldThrow` anyException