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
@@ -73,7 +73,7 @@ main = do

  runSettings appSettings $ middle $ \req respond -> do
    body <- strictRequestBody req
-    resOrError <- liftIO $ H.session pool $ H.tx Nothing $
+    resOrError <- liftIO $ H.session pool $ H.tx (Just (H.ReadUncommitted, Just True)) $
      authenticated conf (app conf body) req
    either (respond . errResponse) respond resOrError