Remove redundant do

2016-01-27 18:51:53 -08:00
parent 536acec820
commit e02dc2e92e
1 changed files with 1 additions and 1 deletions
@@ -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