@@ -102,7 +102,6 @@ import Data.Typeable (Typeable, typeOf)
102102import Data.Vector (Vector)
103103import qualified Data.Vector as V
104104import Database.PostgreSQL.Simple.Internal
105−-- import Database.PostgreSQL.Simple.BuiltinTypes
106105import Database.PostgreSQL.Simple.Compat
107106import Database.PostgreSQL.Simple.Ok
108107import Database.PostgreSQL.Simple.Types (Binary(..), Null(..))
@@ -434,22 +433,10 @@ fromArray typeInfo f = sequence . (parseIt <$>) <$> array delim
434433
435434type Compat = PQ.Oid -> Bool
436435
437−{-
438−mkCompats :: [BuiltinType] -> Compat
439−mkCompats = foldl' f (Compat 0) . map mkCompat
440− where f (Compat a) (Compat b) = Compat (a .|. b)
441−
442−mkCompat :: BuiltinType -> Compat
443−mkCompat = Compat . shiftL 1 . fromEnum
444−
445−compat :: Compat -> Compat -> Bool
446−compat (Compat a) (Compat b) = a .&. b /= 0
447−-}
448−
449436okText, okText', okBinary, ok16, ok32, ok64, okInt :: Compat
450437okText = $( mkCompats [ TI.name, TI.text, TI.char,
451438 TI.bpchar, TI.varchar ] )
452−okText' = $( mkCompats [ TI.name, TI.text, TI.char,
439+okText' = $( mkCompats [ TI.name, TI.text, TI.char,
453440 TI.bpchar, TI.varchar, TI.unknown ] )
454441okBinary = $( mkCompat TI.bytea )
455442ok16 = $( mkCompat TI.int2 )