@@ -597,9 +597,9 @@ beginMode mode conn = do
598 isolevel = case isolationLevel mode of
598 isolevel = case isolationLevel mode of
599 DefaultIsolationLevel -> ""
599 DefaultIsolationLevel -> ""
600− ReadCommitted -> " READ COMMITTED"
600+ ReadCommitted -> " ISOLATION LEVEL READ COMMITTED"
601− RepeatableRead -> " REPEATABLE READ"
601+ RepeatableRead -> " ISOLATION LEVEL REPEATABLE READ"
602− Serializable -> " SERIALIZABLE"
602+ Serializable -> " ISOLATION LEVEL SERIALIZABLE"
603 readmode = case readWriteMode mode of
603 readmode = case readWriteMode mode of
604 DefaultReadWriteMode -> ""
604 DefaultReadWriteMode -> ""
605 ReadWrite -> " READ WRITE"
605 ReadWrite -> " READ WRITE"