d30a469 · typeable/postgresql-simple

git.iko.soy/typeable/postgresql-simple

Fix handling of IsolationLevel

I really should start writing a test suite

commitd30a4697de4775bc72fb88e14a3a1a5206f3b191 authorLeon P Smith <leon@melding-monads.com> dateSun 6 May 2012, 23:40 (14 years ago) parentf364d7e

1 file changed+3−3

unifiedsplit

src/Database/PostgreSQL/Simple.hs+3−3

@@ -597,9 +597,9 @@ beginMode mode conn = do

597597 where

598598 isolevel = case isolationLevel mode of

599599 DefaultIsolationLevel -> ""

600− ReadCommitted -> " READ COMMITTED"

601− RepeatableRead -> " REPEATABLE READ"

602− Serializable -> " SERIALIZABLE"

600+ ReadCommitted -> " ISOLATION LEVEL READ COMMITTED"

601+ RepeatableRead -> " ISOLATION LEVEL REPEATABLE READ"

602+ Serializable -> " ISOLATION LEVEL SERIALIZABLE"

603603 readmode = case readWriteMode mode of

604604 DefaultReadWriteMode -> ""

605605 ReadWrite -> " READ WRITE"