From 8682edf7939aa4dba3d7bd04ce71d311a00f7b71 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Wed, 21 Aug 2019 19:08:40 -0400
Subject: [PATCH] why does this fail to build? not sure
on advice of #haskell, going to try hedgehog instead
---
test/Spec.hs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/test/Spec.hs b/test/Spec.hs
index bd0eadf..211811b 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -180,7 +180,7 @@ spec = with (return app) $ do
it "responds to JSON non-Event body with 400 (Invalid Request)" $
postJSON "/webhook" "{}" `shouldRespondWith` 400
- -- describe "success behavior of POST /webhook" $ do
- -- it "responds to JSON-encoded Event body with 200 (OK)" $
- -- forAll chargeSucceededEvents $ \event ->
- -- postJSON "/webhook" (encode event) `shouldRespondWith` 200
+ describe "success behavior of POST /webhook" $ do
+ it "responds to JSON-encoded Event body with 200 (OK)" $
+ forAll chargeSucceededEvents $ \event ->
+ postJSON "/webhook" (encode event) `shouldRespondWith` 200
--
GitLab