@@ -71,6 +71,7 @@ data BuiltinType
7171 | RefCursor
7272 | Record
7373 | Void
74+ | UUID
7475 deriving (Eq, Ord, Enum, Bounded, Read, Show, Typeable)
7576
7677builtin2oid :: BuiltinType -> PQ.Oid
@@ -120,6 +121,7 @@ builtin2oid typ = PQ.Oid $ case typ of
120121 RefCursor -> 1790
121122 Record -> 2249
122123 Void -> 2278
124+ UUID -> 2950
123125
124126oid2builtin :: PQ.Oid -> Maybe BuiltinType
125127oid2builtin (PQ.Oid x) = case x of
@@ -168,6 +170,7 @@ oid2builtin (PQ.Oid x) = case x of
168170 1790 -> Just RefCursor
169171 2249 -> Just Record
170172 2278 -> Just Void
173+ 2950 -> Just UUID
171174 _ -> Nothing
172175
173176builtin2typname :: BuiltinType -> ByteString
@@ -217,6 +220,7 @@ builtin2typname typ = case typ of
217220 RefCursor -> refcursor
218221 Record -> record
219222 Void -> void
223+ UUID -> uuid
220224
221225oid2typname :: PQ.Oid -> Maybe ByteString
222226oid2typname (PQ.Oid x) = case x of
@@ -265,6 +269,7 @@ oid2typname (PQ.Oid x) = case x of
265269 1790 -> Just refcursor
266270 2249 -> Just record
267271 2278 -> Just void
272+ 2950 -> Just uuid
268273 _ -> Nothing
269274
270275bool :: ByteString
@@ -401,3 +406,6 @@ record = "record"
401406
402407void :: ByteString
403408void = "void"
409+
410+uuid :: ByteString
411+uuid = "uuid"