a8f6a90 · typeable/postgresql-simple

git.iko.soy/typeable/postgresql-simple

Use toException, not the SomeException data constructor

commita8f6a901a38df0f65906889bc7f20bf59ecdd73b authorLeon P Smith <leon@melding-monads.com> dateTue 13 Sep 2016, 19:54 (10 years ago) parentd39d23f

1 file changed+1−1

unifiedsplit

src/Database/PostgreSQL/Simple/Internal.hs+1−1

@@ -496,7 +496,7 @@ conversionMap :: (Ok a -> Ok b) -> Conversion a -> Conversion b

496496conversionMap f m = Conversion $ \conn -> f <$> runConversion m conn

497497

498498conversionError :: Exception err => err -> Conversion a

499−conversionError err = Conversion $ \_ -> return (Errors [SomeException err])

499+conversionError err = Conversion $ \_ -> return (Errors [toException err])

500500

501501newTempName :: Connection -> IO Query

502502newTempName Connection{..} = do