diff --git a/test/SpecStripe.hs b/test/SpecStripe.hs
index 979406dd8e3513572d012064327b89b2794d07cf..3b21c83386214ac90f8398ff57d68780248543f3 100644
--- a/test/SpecStripe.hs
+++ b/test/SpecStripe.hs
@@ -62,7 +62,7 @@ aChargeEvent :: IO LazyBS.ByteString
 aChargeEvent = encode <$> generate chargeSucceededEvents
 
 spec_webhook :: Spec
-spec_webhook = with (return app) $
+spec_webhook = with (return app) $ do
   -- I would like to make these property tests but I can't figure out how to
   -- use QuickCheck (or Hedgehog) to write property tests for web code.
 
@@ -73,8 +73,6 @@ spec_webhook = with (return app) $
     it "responds to JSON non-Event body with 400 (Invalid Request)" $
       postJSON "/webhook" "{}" `shouldRespondWith` 400
 
-spec_webhook' :: Spec
-spec_webhook' = with (return app) $
   describe "success behavior of POST /webhook" $
     it "responds to a JSON Event body with 200 (OK)" $ do
       event <- liftIO aChargeEvent