@@ -107,6 +107,7 @@ import Data.Ratio (Ratio)
107107import Data.Time ( UTCTime, ZonedTime, LocalTime, Day, TimeOfDay )
108108import Data.Typeable (Typeable, typeOf)
109109import Data.Vector (Vector)
110+import Data.Vector.Mutable (IOVector)
110111import qualified Data.Vector as V
111112import Database.PostgreSQL.Simple.Internal
112113import Database.PostgreSQL.Simple.Compat
@@ -440,6 +441,9 @@ fromArray typeInfo f = sequence . (parseIt <$>) <$> array delim
440441instance (FromField a, Typeable a) => FromField (Vector a) where
441442 fromField f v = V.fromList . fromPGArray <$> fromField f v
442443
444+instance (FromField a, Typeable a) => FromField (IOVector a) where
445+ fromField f v = liftConversion . V.unsafeThaw =<< fromField f v
446+
443447-- | uuid
444448instance FromField UUID where
445449 fromField f mbs =