persistent-postgresql 1.0.1 → 1.0.2

raw patch · 2 files changed

+8/−3 lines, 2 files

Files

• Database/Persist/Postgresql.hs +7/−2
• persistent-postgresql.cabal +1/−1

@@ -11,6 +11,7 @@     , module Database.Persist.GenericSql     , ConnectionString     , PostgresConf (..)+    , openSimpleConn     ) where  import Database.Persist hiding (Entity (..))@@ -102,7 +103,11 @@  open' :: ConnectionString -> IO Connection open' cstr = do-    conn <- PG.connectPostgreSQL cstr+    PG.connectPostgreSQL cstr >>= openSimpleConn++-- | Generate a 'Connection' from a 'PG.Connection'+openSimpleConn :: PG.Connection -> IO Connection+openSimpleConn conn = do     smap <- newIORef $ Map.empty     return Connection         { prepare    = prepare' conn@@ -425,7 +430,7 @@     getType "float8"      = Right $ SqlReal     getType "bytea"       = Right $ SqlBlob     getType "time"        = Right $ SqlTime-    getType a             = Left $ "Unknown type: " `T.append` a+    getType a             = Right $ SqlOther a getColumn _ _ x =     return $ Left $ pack $ "Invalid result from information_schema: " ++ show x 

@@ -1,5 +1,5 @@ name:            persistent-postgresql-version:         1.0.1+version:         1.0.2 license:         MIT license-file:    LICENSE author:          Felipe Lessa, Michael Snoyman <michael@snoyman.com>