postgresql-simple 0.2.1.0 → 0.2.2.0

raw patch · 3 files changed

+14/−3 lines, 3 files

Files

• postgresql-simple.cabal +2/−2
• src/Database/PostgreSQL/Simple/BuiltinTypes.hs +8/−0
• src/Database/PostgreSQL/Simple/ToRow.hs +4/−1

@@ -1,5 +1,5 @@ Name:                postgresql-simple-Version:             0.2.1.0+Version:             0.2.2.0 Synopsis:            Mid-Level PostgreSQL client library Description:     Mid-Level PostgreSQL client library, forked from mysql-simple.@@ -66,7 +66,7 @@ source-repository this   type:     git   location: http://github.com/lpsmith/postgresql-simple-  tag:      v0.2.1.0+  tag:      v0.2.2.0  test-suite test   type:           exitcode-stdio-1.0

@@ -71,6 +71,7 @@    | RefCursor    | Record    | Void+   | UUID      deriving (Eq, Ord, Enum, Bounded, Read, Show, Typeable)  builtin2oid :: BuiltinType -> PQ.Oid@@ -120,6 +121,7 @@   RefCursor   -> 1790   Record      -> 2249   Void        -> 2278+  UUID        -> 2950  oid2builtin :: PQ.Oid -> Maybe BuiltinType oid2builtin (PQ.Oid x) = case x of@@ -168,6 +170,7 @@   1790 -> Just RefCursor   2249 -> Just Record   2278 -> Just Void+  2950 -> Just UUID   _    -> Nothing  builtin2typname :: BuiltinType -> ByteString@@ -217,6 +220,7 @@   RefCursor   -> refcursor   Record      -> record   Void        -> void+  UUID        -> uuid  oid2typname :: PQ.Oid -> Maybe ByteString oid2typname (PQ.Oid x) = case x of@@ -265,6 +269,7 @@   1790 -> Just refcursor   2249 -> Just record   2278 -> Just void+  2950 -> Just uuid   _ -> Nothing  bool :: ByteString@@ -401,3 +406,6 @@  void :: ByteString void = "void"++uuid :: ByteString+uuid = "uuid"

@@ -22,7 +22,7 @@     ) where  import Database.PostgreSQL.Simple.ToField (Action(..), ToField(..))-import Database.PostgreSQL.Simple.Types (Only(..))+import Database.PostgreSQL.Simple.Types (Only(..), (:.)(..))  -- | A collection type that can be turned into a list of rendering -- 'Action's.@@ -88,3 +88,6 @@  instance (ToField a) => ToRow [a] where     toRow = map toField++instance (ToRow a, ToRow b) => ToRow (a :. b) where+    toRow (a :. b) = toRow a ++ toRow b