From 04086b36acce0abdd2dc9d336752b2c0669b15c5 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Thu, 22 Aug 2019 16:07:12 -0400
Subject: [PATCH] pattern matching
---
test/SpecStripe.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/test/SpecStripe.hs b/test/SpecStripe.hs
index 3b21c83..878fac5 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
--
GitLab