fix transaction isolation settings on server (#2211)

This commit is contained in:
Josha Inglis
2019-05-20 16:18:17 +02:00
committed by Shahidh K Muhammed
parent 5ef5fff860
commit 277be9074e

View File

@@ -186,10 +186,10 @@ parseStrAsBool t
readIsoLevel :: String -> Either String Q.TxIsolation
readIsoLevel isoS =
case isoS of
"read-comitted" -> return Q.ReadCommitted
"read-committed" -> return Q.ReadCommitted
"repeatable-read" -> return Q.RepeatableRead
"serializable" -> return Q.ReadCommitted
_ -> Left "Only expecting read-comitted / repeatable-read / serializable"
"serializable" -> return Q.Serializable
_ -> Left "Only expecting read-committed / repeatable-read / serializable"
type WithEnv a = ReaderT Env (ExceptT String Identity) a