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

Unify Proxy type applications

Browse Source
This commit is contained in:
paul
2023-09-16 04:39:26 +02:00
parent e7d494c034
commit 591f4cddfa
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/Database/PostgreSQL/Opium.hs
+2 -2
View File
@@ -151,12 +151,12 @@ instance {-# OVERLAPPABLE #-} (FromField t, KnownSymbol nameSym) => FromRow' (M1
(Left $ ErrorUnexpectedNull row nameText)
Right
where
nameText = Text.pack $ symbolVal (Proxy :: Proxy nameSym)
nameText = Text.pack $ symbolVal @nameSym Proxy
instance {-# OVERLAPPING #-} (KnownSymbol nameSym, FromField t) => FromRow' (M1 S ('MetaSel ('Just nameSym) nu ns dl) (Rec0 (Maybe t))) where
fromRow' = decodeField nameText $ const Right
where
nameText = Text.pack $ symbolVal (Proxy :: Proxy nameSym)
nameText = Text.pack $ symbolVal @nameSym Proxy
mapLeft :: (b -> c) -> Either b a -> Either c a
mapLeft f (Left l) = Left $ f l