Skip to content

Commit a8f6a90

Browse files
committed
Use toException, not the SomeException data constructor
1 parent d39d23f commit a8f6a90

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/Database/PostgreSQL/Simple/Internal.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -496,7 +496,7 @@ conversionMap :: (Ok a -> Ok b) -> Conversion a -> Conversion b
496496
conversionMap f m = Conversion $ \conn -> f <$> runConversion m conn
497497

498498
conversionError :: Exception err => err -> Conversion a
499-
conversionError err = Conversion $ \_ -> return (Errors [SomeException err])
499+
conversionError err = Conversion $ \_ -> return (Errors [toException err])
500500

501501
newTempName :: Connection -> IO Query
502502
newTempName Connection{..} = do

0 commit comments

Comments
 (0)