Rewrite RawField

lib/Database/PostgreSQL/Opium/FromField.hs

@@ -148,9 +148,9 @@ instance FromField TimeOfDay where
   validOid Proxy = Oid.time
   parseField = timeToTimeOfDay <$> parseField @DiffTime
 
-newtype RawField = RawField ByteString
+newtype RawField a = RawField a
   deriving (Eq, Show)
 
-instance FromField RawField where
+instance FromField a => FromField (RawField a) where
   validOid Proxy = const True
-  parseField = RawField <$> AP.takeByteString
+  parseField = RawField <$> parseField

test/Database/PostgreSQL/Opium/FromFieldSpec.hs

@@ -94,7 +94,7 @@ newtype ATimeOfDay = ATimeOfDay
 instance FromRow ATimeOfDay where
 
 newtype ARawField = ARawField
-  { raw :: Opium.RawField
+  { raw :: Opium.RawField ByteString
   } deriving (Eq, Generic, Show)
 
 instance FromRow ARawField where