@@ -225,8 +225,8 @@ connectPostgreSQL connstr = do
225 let wconn = Connection{..}
225 let wconn = Connection{..}
226 version <- PQ.serverVersion conn
226 version <- PQ.serverVersion conn
227 let settings
227 let settings
228− | version < 80200 = "SET datestyle TO ISO"
228+ | version < 80200 = "SET datestyle TO ISO;SET client_encoding TO UTF8"
229− | otherwise = "SET standard_conforming_strings TO on;SET datestyle TO ISO"
229+ | otherwise = "SET datestyle TO ISO;SET client_encoding TO UTF8;SET standard_conforming_strings TO on"
230 _ <- execute_ wconn settings
230 _ <- execute_ wconn settings
231 return wconn
231 return wconn