Merge pull request #203 from supki/fix-examples

Fix the exception handling examples.

Author: lpsmith

src/Database/PostgreSQL/Simple/Errors.hs

@@ -66,10 +66,10 @@ instance Exception ConstraintViolation
 -- | Tries to convert 'SqlError' to 'ConstrainViolation', checks sqlState and
 -- succeedes only if able to parse sqlErrorMsg.
 --
--- > createUser = catchJust constraintViolation catcher $ execute conn ...
+-- > createUser = handleJust constraintViolation handler $ execute conn ...
 -- >   where
--- >     catcher UniqueViolation "user_login_key" = ...
--- >     catcher _ = ...
+-- >     handler (UniqueViolation "user_login_key") = ...
+-- >     handler _ = ...
 constraintViolation :: SqlError -> Maybe ConstraintViolation
 constraintViolation e =
   case sqlState e of
@@ -84,16 +84,16 @@ constraintViolation e =
 
 -- | Like constraintViolation, but also packs original SqlError.
 --
--- > createUser = catchJust constraintViolationE catcher $ execute conn ...
+-- > createUser = handleJust constraintViolationE handler $ execute conn ...
 -- >   where
--- >     catcher (_, UniqueViolation "user_login_key") = ...
--- >     catcher (e, _) = throwIO e
+-- >     handler (_, UniqueViolation "user_login_key") = ...
+-- >     handler (e, _) = throwIO e
 --
 constraintViolationE :: SqlError -> Maybe (SqlError, ConstraintViolation)
 constraintViolationE e = fmap ((,) e) $ constraintViolation e
 
 -- | Catches SqlError, tries to convert to ConstraintViolation, re-throws
--- on fail. Provides alternative interface to catchJust
+-- on fail. Provides alternative interface to 'E.handleJust'
 --
 -- > createUser = catchViolation catcher $ execute conn ...
 -- >   where