Set role locally in a tx to ensure it is reset after error

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

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