paul/opium
1
0
Fork 0
Code Issues 1 Pull Requests Packages Projects Releases Wiki Activity

Rewrite RawField

Browse Source
This commit is contained in:
Paul Brinkmeier 2023-10-02 14:30:12 +02:00
parent 7eccd0d778
commit f6ad7b157c
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/Database/PostgreSQL/Opium/FromField.hs
View File

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

2
test/Database/PostgreSQL/Opium/FromFieldSpec.hs
View File

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