@@ -126,8 +126,7 @@ import qualified Data.IntMap as IntMap
126126import Data.List (intersperse)
127127import Data.Monoid (mappend, mconcat)
128128import Data.Typeable (Typeable)
129−import Database.PostgreSQL.Simple.BuiltinTypes
130− ( oid2builtin, builtin2typname )
129+import Database.PostgreSQL.Simple.BuiltinTypes ( oid2typname )
131130import Database.PostgreSQL.Simple.Compat ( mask )
132131import Database.PostgreSQL.Simple.FromField (ResultError(..))
133132import Database.PostgreSQL.Simple.FromRow (FromRow(..))
@@ -934,8 +933,8 @@ fmtError msg q xs = throw FormatError {
934933
935934getTypename :: Connection -> PQ.Oid -> IO ByteString
936935getTypename conn@Connection{..} oid =
937− case oid2builtin oid of
938− Just builtin -> return $! builtin2typname builtin
936+ case oid2typname oid of
937+ Just name -> return name
939938 Nothing -> modifyMVar connectionObjects $ \oidmap -> do
940939 case IntMap.lookup (oid2int oid) oidmap of
941940 Just name -> return (oidmap, name)