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

Move column increment to decodeField

Browse Source
This commit is contained in:
Paul Brinkmeier 2023-09-16 19:14:12 +02:00
parent ff615b6172
commit d54cf6ea7f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Database/PostgreSQL/Opium.hs
View File

@ -131,9 +131,8 @@ instance FromRow' f => FromRow' (M1 C c f) where
fromRow' ctx row = M1 <$> fromRow' ctx row fromRow' ctx row = M1 <$> fromRow' ctx row
instance (FromRow' f, FromRow' g) => FromRow' (f :*: g) where instance (FromRow' f, FromRow' g) => FromRow' (f :*: g) where
fromRow' ctx@(FromRowCtx _ _ iRef) row = do fromRow' ctx row = do
y <- fromRow' ctx row y <- fromRow' ctx row
liftIO $ modifyIORef' iRef (+1)
z <- fromRow' ctx row z <- fromRow' ctx row
pure $ y :*: z pure $ y :*: z
@ -146,6 +145,7 @@ decodeField
-> ExceptT Error IO (M1 S m (Rec0 t') p) -> ExceptT Error IO (M1 S m (Rec0 t') p)
decodeField nameText g (FromRowCtx result columnTable iRef) row = do decodeField nameText g (FromRowCtx result columnTable iRef) row = do
i <- liftIO $ readIORef iRef i <- liftIO $ readIORef iRef
liftIO $ modifyIORef' iRef (+1)
let (column, oid) = columnTable `indexColumnTable` i let (column, oid) = columnTable `indexColumnTable` i
mbField <- liftIO $ getFieldText column mbField <- liftIO $ getFieldText column
mbValue <- except $ getValue oid mbField mbValue <- except $ getValue oid mbField