From e02dc2e92e3a6310e70099101f86e37793749246 Mon Sep 17 00:00:00 2001
From: Joe Nelson <cred+github@begriffs.com>
Date: Wed, 27 Jan 2016 18:51:53 -0800
Subject: [PATCH] Remove redundant do

---
 test/SpecHelper.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/SpecHelper.hs b/test/SpecHelper.hs
index 3dc123bd6..886aaf1e0 100644
--- a/test/SpecHelper.hs
+++ b/test/SpecHelper.hs
@@ -40,7 +40,7 @@ cfgLimitRows = cfg dbString . Just
 
 withApp :: AppConfig -> DbStructure -> H.Connection
         -> ActionWith Application -> IO ()
-withApp config dbStructure c perform = do
+withApp config dbStructure c perform =
   perform $ defaultMiddle $ \req resp -> do
     time <- getPOSIXTime
     body <- strictRequestBody req