lens-3.10: Lenses, Folds and Traversals

PortabilityControl.Exception
Stabilityprovisional
MaintainerEdward Kmett <ekmett@gmail.com>
Safe HaskellTrustworthy

Control.Exception.Lens

Contents

Description

Control.Exception provides an example of a large open hierarchy that we can model with prisms and isomorphisms.

Additional combinators for working with IOException results can be found in System.IO.Error.Lens.

The combinators in this module have been generalized to work with MonadCatchIO instead of just IO. This enables them to be used more easily in Monad transformer stacks.

Synopsis

Handling

catching :: MonadCatchIO m => Getting (First a) SomeException a -> m r -> (a -> m r) -> m rSource

Catch exceptions that match a given Prism (or any Getter, really).

>>> catching _AssertionFailed (assert False (return "uncaught")) $ \ _ -> return "caught"
"caught"
 catching :: MonadCatchIO m => Prism' SomeException a     -> m r -> (a -> m r) -> m r
 catching :: MonadCatchIO m => Lens' SomeException a      -> m r -> (a -> m r) -> m r
 catching :: MonadCatchIO m => Traversal' SomeException a -> m r -> (a -> m r) -> m r
 catching :: MonadCatchIO m => Iso' SomeException a       -> m r -> (a -> m r) -> m r
 catching :: MonadCatchIO m => Getter SomeException a     -> m r -> (a -> m r) -> m r
 catching :: MonadCatchIO m => Fold SomeException a       -> m r -> (a -> m r) -> m r

catching_ :: MonadCatchIO m => Getting (First a) SomeException a -> m r -> m r -> m rSource

Catch exceptions that match a given Prism (or any Getter), discarding the information about the match. This is particuarly useful when you have a Prism' e () where the result of the Prism or Fold isn't particularly valuable, just the fact that it matches.

>>> catching_ _AssertionFailed (assert False (return "uncaught")) $ return "caught"
"caught"
 catching_ :: MonadCatchIO m => Prism' SomeException a     -> m r -> m r -> m r
 catching_ :: MonadCatchIO m => Lens' SomeException a      -> m r -> m r -> m r
 catching_ :: MonadCatchIO m => Traversal' SomeException a -> m r -> m r -> m r
 catching_ :: MonadCatchIO m => Iso' SomeException a       -> m r -> m r -> m r
 catching_ :: MonadCatchIO m => Getter SomeException a     -> m r -> m r -> m r
 catching_ :: MonadCatchIO m => Fold SomeException a       -> m r -> m r -> m r

handling :: MonadCatchIO m => Getting (First a) SomeException a -> (a -> m r) -> m r -> m rSource

A version of catching with the arguments swapped around; useful in situations where the code for the handler is shorter.

>>> handling _NonTermination (\_ -> return "caught") $ throwIO NonTermination
"caught"
 handling :: MonadCatchIO m => Prism' SomeException a     -> (a -> m r) -> m r -> m r
 handling :: MonadCatchIO m => Lens' SomeException a      -> (a -> m r) -> m r -> m r
 handling :: MonadCatchIO m => Traversal' SomeException a -> (a -> m r) -> m r -> m r
 handling :: MonadCatchIO m => Iso' SomeException a       -> (a -> m r) -> m r -> m r
 handling :: MonadCatchIO m => Fold SomeException a       -> (a -> m r) -> m r -> m r
 handling :: MonadCatchIO m => Getter SomeException a     -> (a -> m r) -> m r -> m r

handling_ :: MonadCatchIO m => Getting (First a) SomeException a -> m r -> m r -> m rSource

A version of catching_ with the arguments swapped around; useful in situations where the code for the handler is shorter.

>>> handling_ _NonTermination (return "caught") $ throwIO NonTermination
"caught"
 handling_ :: MonadCatchIO m => Prism' SomeException a     -> m r -> m r -> m r
 handling_ :: MonadCatchIO m => Lens' SomeException a      -> m r -> m r -> m r
 handling_ :: MonadCatchIO m => Traversal' SomeException a -> m r -> m r -> m r
 handling_ :: MonadCatchIO m => Iso' SomeException a       -> m r -> m r -> m r
 handling_ :: MonadCatchIO m => Getter SomeException a     -> m r -> m r -> m r
 handling_ :: MonadCatchIO m => Fold SomeException a       -> m r -> m r -> m r

Trying

trying :: MonadCatchIO m => Getting (First a) SomeException a -> m r -> m (Either a r)Source

A variant of try that takes a Prism (or any Getter) to select which exceptions are caught (c.f. tryJust, catchJust). If the Exception does not match the predicate, it is re-thrown.

 trying :: MonadCatchIO m => Prism'     SomeException a -> m r -> m (Either a r)
 trying :: MonadCatchIO m => Lens'      SomeException a -> m r -> m (Either a r)
 trying :: MonadCatchIO m => Traversal' SomeException a -> m r -> m (Either a r)
 trying :: MonadCatchIO m => Iso'       SomeException a -> m r -> m (Either a r)
 trying :: MonadCatchIO m => Getter     SomeException a -> m r -> m (Either a r)
 trying :: MonadCatchIO m => Fold       SomeException a -> m r -> m (Either a r)

Throwing

throwing :: AReview s SomeException a b -> b -> rSource

Throw an Exception described by a Prism. Exceptions may be thrown from purely functional code, but may only be caught within the IO Monad.

 throwing l ≡ reviews l throw
 throwing :: Prism' SomeException t -> t -> r
 throwing :: Iso' SomeException t   -> t -> r

throwingM :: MonadIO m => AReview s SomeException a b -> b -> m rSource

A variant of throwing that can only be used within the IO Monad (or any other MonadCatchIO instance) to throw an Exception described by a Prism.

Although throwingM has a type that is a specialization of the type of throwing, the two functions are subtly different:

 throwing l e `seq` x  ≡ throwing e
 throwingM l e `seq` x ≡ x

The first example will cause the Exception e to be raised, whereas the second one won't. In fact, throwingM will only cause an Exception to be raised when it is used within the MonadCatchIO instance. The throwingM variant should be used in preference to throwing to raise an Exception within the Monad because it guarantees ordering with respect to other monadic operations, whereas throwing does not.

 throwingM l ≡ reviews l throw
 throwingM :: MonadIO m => Prism' SomeException t -> t -> m r
 throwingM :: MonadIO m => Iso' SomeException t   -> t -> m r

throwingTo :: MonadIO m => ThreadId -> AReview s SomeException a b -> b -> m ()Source

throwingTo raises an Exception specified by a Prism in the target thread.

 throwingTo thread l ≡ reviews l (throwTo thread)
 throwingTo :: ThreadId -> Prism' SomeException t -> t -> m a
 throwingTo :: ThreadId -> Iso' SomeException t   -> t -> m a

Exceptions

exception :: Exception a => Prism' SomeException aSource

Traverse the strongly typed Exception contained in SomeException where the type of your function matches the desired Exception.

 exception :: (Applicative f, Exception a)
           => (a -> f a) -> SomeException -> f SomeException

Exception Handlers

class Handleable e m h | h -> e m whereSource

Both MonadCatchIO-transformers and Control.Exception provide a Handler type.

This lets us write combinators to build handlers that are agnostic about the choice of which of these they use.

Methods

handler :: Getting (First a) e a -> (a -> m r) -> h rSource

This builds a Handler for just the targets of a given Prism (or any Getter, really).

 catches ... [ handler _AssertionFailed (s -> print $ "Assertion Failed\n" ++ s)
             , handler _ErrorCall (s -> print $ "Error\n" ++ s)
             ]

This works ith both the Handler type provided by Control.Exception:

 handler :: Getter     SomeException a -> (a -> IO r) -> Handler r
 handler :: Fold       SomeException a -> (a -> IO r) -> Handler r
 handler :: Prism'     SomeException a -> (a -> IO r) -> Handler r
 handler :: Lens'      SomeException a -> (a -> IO r) -> Handler r
 handler :: Traversal' SomeException a -> (a -> IO r) -> Handler r

and with the Handler type provided by Control.Monad.CatchIO:

 handler :: Getter     SomeException a -> (a -> m r) -> Handler m r
 handler :: Fold       SomeException a -> (a -> m r) -> Handler m r
 handler :: Prism'     SomeException a -> (a -> m r) -> Handler m r
 handler :: Lens'      SomeException a -> (a -> m r) -> Handler m r
 handler :: Traversal' SomeException a -> (a -> m r) -> Handler m r

and with the Handler type provided by Control.Monad.Error.Lens:

 handler :: Getter     e a -> (a -> m r) -> Handler e m r
 handler :: Fold       e a -> (a -> m r) -> Handler e m r
 handler :: Prism'     e a -> (a -> m r) -> Handler e m r
 handler :: Lens'      e a -> (a -> m r) -> Handler e m r
 handler :: Traversal' e a -> (a -> m r) -> Handler e m r

handler_ :: Getting (First a) e a -> m r -> h rSource

This builds a Handler for just the targets of a given Prism (or any Getter, really). that ignores its input and just recovers with the stated monadic action.

 catches ... [ handler_ _NonTermination (return "looped")
             , handler_ _StackOverflow (return "overflow")
             ]

This works with the Handler type provided by Control.Exception:

 handler_ :: Getter     SomeException a -> IO r -> Handler r
 handler_ :: Fold       SomeException a -> IO r -> Handler r
 handler_ :: Prism'     SomeException a -> IO r -> Handler r
 handler_ :: Lens'      SomeException a -> IO r -> Handler r
 handler_ :: Traversal' SomeException a -> IO r -> Handler r

and with the Handler type provided by Control.Monad.CatchIO:

 handler_ :: Getter     SomeException a -> m r -> Handler m r
 handler_ :: Fold       SomeException a -> m r -> Handler m r
 handler_ :: Prism'     SomeException a -> m r -> Handler m r
 handler_ :: Lens'      SomeException a -> m r -> Handler m r
 handler_ :: Traversal' SomeException a -> m r -> Handler m r

and with the Handler type provided by Control.Monad.Error.Lens:

 handler_ :: Getter     e a -> m r -> Handler e m r
 handler_ :: Fold       e a -> m r -> Handler e m r
 handler_ :: Prism'     e a -> m r -> Handler e m r
 handler_ :: Lens'      e a -> m r -> Handler e m r
 handler_ :: Traversal' e a -> m r -> Handler e m r

IOExceptions

class AsIOException p f t whereSource

Exceptions that occur in the IO Monad. An IOException records a more specific error type, a descriptive string and maybe the handle that was used when the error was flagged.

Due to their richer structure relative to other exceptions, these have a more carefully overloaded signature.

Methods

_IOException :: Overloaded' p f t IOExceptionSource

Unfortunately the name ioException is taken by base for throwing IOExceptions.

 _IOException :: Equality' IOException IOException
 _IOException :: Prism' SomeException IOException

Many combinators for working with an IOException are available in System.IO.Error.Lens.

Arithmetic Exceptions

Array Exceptions

_UndefinedElement :: (AsArrayException p f t, Choice p, Applicative f) => Overloaded' p f t StringSource

An attempt was made to evaluate an element of an array that had not been initialized.

 _UndefinedElement_ArrayException . _UndefinedElement
 _UndefinedElement :: Prism' ArrayException String
 _UndefinedElement :: Prism' SomeException  String

Assertion Failed

class AsAssertionFailed p f t whereSource

assert was applied to False.

Methods

_AssertionFailed :: Overloaded' p f t StringSource

This Exception contains provides information about what assertion failed in the String.

>>> handling _AssertionFailed (\ xs -> "caught" <$ guard ("<interactive>" `isInfixOf` xs) ) $ assert False (return "uncaught")
"caught"
 _AssertionFailed :: Iso'   AssertionFailed String
 _AssertionFailed :: Prism' SomeException   String

Async Exceptions

_StackOverflow :: (AsAsyncException p f t, Choice p, Applicative f) => Overloaded' p f t ()Source

The current thread's stack exceeded its limit. Since an Exception has been raised, the thread's stack will certainly be below its limit again, but the programmer should take remedial action immediately.

 _StackOverflow :: Prism' AsyncException ()
 _StackOverflow :: Prism' SomeException  ()

_HeapOverflow :: (AsAsyncException p f t, Choice p, Applicative f) => Overloaded' p f t ()Source

The program's heap is reaching its limit, and the program should take action to reduce the amount of live data it has.

Notes:

  • It is undefined which thread receives this Exception.
  • GHC currently does not throw HeapOverflow exceptions.
 _HeapOverflow :: Prism' AsyncException ()
 _HeapOverflow :: Prism' SomeException  ()

_ThreadKilled :: (AsAsyncException p f t, Choice p, Applicative f) => Overloaded' p f t ()Source

This Exception is raised by another thread calling killThread, or by the system if it needs to terminate the thread for some reason.

 _ThreadKilled :: Prism' AsyncException ()
 _ThreadKilled :: Prism' SomeException  ()

_UserInterrupt :: (AsAsyncException p f t, Choice p, Applicative f) => Overloaded' p f t ()Source

This Exception is raised by default in the main thread of the program when the user requests to terminate the program via the usual mechanism(s) (e.g. Control-C in the console).

 _UserInterrupt :: Prism' AsyncException ()
 _UserInterrupt :: Prism' SomeException  ()

Non-Termination

class (Profunctor p, Functor f) => AsNonTermination p f t whereSource

Thrown when the runtime system detects that the computation is guaranteed not to terminate. Note that there is no guarantee that the runtime system will notice whether any given computation is guaranteed to terminate or not.

Methods

_NonTermination :: Overloaded' p f t ()Source

There is no additional information carried in a NonTermination Exception.

 _NonTermination :: Iso'   NonTermination ()
 _NonTermination :: Prism' SomeException  ()

Nested Atomically

class (Profunctor p, Functor f) => AsNestedAtomically p f t whereSource

Thrown when the program attempts to call atomically, from the STM package, inside another call to atomically.

Methods

_NestedAtomically :: Overloaded' p f t ()Source

There is no additional information carried in a NestedAtomically Exception.

 _NestedAtomically :: Iso'   NestedAtomically ()
 _NestedAtomically :: Prism' SomeException    ()

Blocked Indefinitely

on MVar

class (Profunctor p, Functor f) => AsBlockedIndefinitelyOnMVar p f t whereSource

The thread is blocked on an MVar, but there are no other references to the MVar so it can't ever continue.

on STM

class (Profunctor p, Functor f) => AsBlockedIndefinitelyOnSTM p f t whereSource

The thread is waiting to retry an STM transaction, but there are no other references to any TVars involved, so it can't ever continue.

Deadlock

class (Profunctor p, Functor f) => AsDeadlock p f t whereSource

There are no runnable threads, so the program is deadlocked. The Deadlock Exception is raised in the main thread only.

Methods

_Deadlock :: Overloaded' p f t ()Source

There is no information carried in a Deadlock Exception.

 _Deadlock :: Iso'   Deadlock      ()
 _Deadlock :: Prism' SomeException ()

No Such Method

class (Profunctor p, Functor f) => AsNoMethodError p f t whereSource

A class method without a definition (neither a default definition, nor a definition in the appropriate instance) was called.

Methods

_NoMethodError :: Overloaded' p f t StringSource

Extract a description of the missing method.

 _NoMethodError :: Iso'   NoMethodError String
 _NoMethodError :: Prism' SomeException String

Pattern Match Failure

class (Profunctor p, Functor f) => AsPatternMatchFail p f t whereSource

A pattern match failed.

Methods

_PatternMatchFail :: Overloaded' p f t StringSource

Information about the source location of the pattern.

 _PatternMatchFail :: Iso'   PatternMatchFail String
 _PatternMatchFail :: Prism' SomeException    String

Record

class (Profunctor p, Functor f) => AsRecConError p f t whereSource

An uninitialised record field was used.

Methods

_RecConError :: Overloaded' p f t StringSource

Information about the source location where the record was constructed.

 _RecConError :: Iso'   RecConError   String
 _RecConError :: Prism' SomeException String

class (Profunctor p, Functor f) => AsRecSelError p f t whereSource

A record selector was applied to a constructor without the appropriate field. This can only happen with a datatype with multiple constructors, where some fields are in one constructor but not another.

Methods

_RecSelError :: Overloaded' p f t StringSource

Information about the source location where the record selection occurred.

class (Profunctor p, Functor f) => AsRecUpdError p f t whereSource

A record update was performed on a constructor without the appropriate field. This can only happen with a datatype with multiple constructors, where some fields are in one constructor but not another.

Methods

_RecUpdError :: Overloaded' p f t StringSource

Information about the source location where the record was updated.

Error Call

class (Profunctor p, Functor f) => AsErrorCall p f t whereSource

This is thrown when the user calls error.

Methods

_ErrorCall :: Overloaded' p f t StringSource

Retrieve the argument given to error.

ErrorCall is isomorphic to a String.

>>> catching _ErrorCall (error "touch down!") return
"touch down!"

Handling Exceptions

class (Profunctor p, Functor f) => AsHandlingException p f t whereSource

This Exception is thrown by lens when the user somehow manages to rethrow an internal HandlingException.