Permalink
Browse files

Fix handling of IsolationLevel

I really should start writing a test suite
  • Loading branch information...
1 parent f364d7e commit d30a4697de4775bc72fb88e14a3a1a5206f3b191 @lpsmith committed May 7, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/Database/PostgreSQL/Simple.hs
@@ -597,9 +597,9 @@ beginMode mode conn = do
where
isolevel = case isolationLevel mode of
DefaultIsolationLevel -> ""
- ReadCommitted -> " READ COMMITTED"
- RepeatableRead -> " REPEATABLE READ"
- Serializable -> " SERIALIZABLE"
+ ReadCommitted -> " ISOLATION LEVEL READ COMMITTED"
+ RepeatableRead -> " ISOLATION LEVEL REPEATABLE READ"
+ Serializable -> " ISOLATION LEVEL SERIALIZABLE"
readmode = case readWriteMode mode of
DefaultReadWriteMode -> ""
ReadWrite -> " READ WRITE"

0 comments on commit d30a469

Please sign in to comment.