jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove redundant do

Browse Source
This commit is contained in:
Joe Nelson
2016-01-27 18:51:53 -08:00
parent 536acec820
commit e02dc2e92e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/SpecHelper.hs
+1 -1
View File
@@ -40,7 +40,7 @@ cfgLimitRows = cfg dbString . Just
withApp :: AppConfig -> DbStructure -> H.Connection withApp :: AppConfig -> DbStructure -> H.Connection
-> ActionWith Application -> IO () -> ActionWith Application -> IO ()
withApp config dbStructure c perform = do withApp config dbStructure c perform =
perform $ defaultMiddle $ \req resp -> do perform $ defaultMiddle $ \req resp -> do
time <- getPOSIXTime time <- getPOSIXTime
body <- strictRequestBody req body <- strictRequestBody req