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