@@ -153,7 +153,8 @@ connectPostgreSQL connstr = do
153153 connectionHandle <- newMVar conn
154154 connectionObjects <- newMVar (IntMap.empty)
155155 let wconn = Connection{..}
156− _ <- execute_ wconn "SET standard_conforming_strings TO on"
156+ _ <- execute_ wconn "SET standard_conforming_strings TO on;\
157+ \SET datestyle TO ISO"
157158 return Connection{..}
158159 _ -> do
159160 msg <- maybe "connectPostgreSQL error" id <$> PQ.errorMessage conn