diff --git a/test/SpecStripe.hs b/test/SpecStripe.hs
index 3b21c83386214ac90f8398ff57d68780248543f3..878fac5907029d645dda2a1835db8000e5e3f58d 100644
--- a/test/SpecStripe.hs
+++ b/test/SpecStripe.hs
@@ -79,4 +79,5 @@ spec_webhook = with (return app) $ do
       postJSON "/webhook" event `shouldRespondWith` 200 { matchBody = MatchBody bodyMatcher }
 
 bodyMatcher :: [Network.HTTP.Types.Header] -> Body -> Maybe String
-bodyMatcher _ body = if body == "{}" then Nothing else Just $ show body
+bodyMatcher _ "{}" = Nothing
+bodyMatcher _ body = Just $ show body