Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix handling of IsolationLevel

I really should start writing a test suite
  • Loading branch information...
commit d30a4697de4775bc72fb88e14a3a1a5206f3b191 1 parent f364d7e
@lpsmith authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/Database/PostgreSQL/Simple.hs
View
6 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"
Please sign in to comment.
Something went wrong with that request. Please try again.