@@ -218,7 +218,7 @@ typename field = typname <$> typeInfo field
219typeInfo :: Field -> Conversion TypeInfo
219typeInfo :: Field -> Conversion TypeInfo
220typeInfo Field{..} = Conversion $ \conn -> do
220typeInfo Field{..} = Conversion $ \conn -> do
221− Ok <$> (getTypeInfo conn =<< PQ.ftype result column)
221+ Ok <$> (getTypeInfo conn typeOid)
223typeInfoByOid :: PQ.Oid -> Conversion TypeInfo
223typeInfoByOid :: PQ.Oid -> Conversion TypeInfo
224typeInfoByOid oid = Conversion $ \conn -> do
224typeInfoByOid oid = Conversion $ \conn -> do