Let the transaction reset the role and user id for us

2015-08-26 20:49:23 -07:00
parent 594327924c
commit 1656fb9f57
4 changed files with 8 additions and 14 deletions
@@ -54,7 +54,7 @@ withApp perform = do

  perform $ middle $ \req resp -> do
    body <- strictRequestBody req
-    result <- liftIO $ H.session pool $ H.tx (Just (H.ReadUncommitted, Just True))
+    result <- liftIO $ H.session pool $ H.tx (Just (H.ReadCommitted, Just True))
      $ authenticated cfg (app cfg body) req
    either (resp . errResponse) resp result