{-# LANGUAGE DeriveDataTypeable #-} module Web.Authenticate.Internal ( AuthenticateException (..) ) where import Data.Typeable (Typeable) import Control.Exception (Exception) data AuthenticateException = RpxnowException String | NormalizationException String | DiscoveryException String | AuthenticationException String deriving (Int -> AuthenticateException -> ShowS [AuthenticateException] -> ShowS AuthenticateException -> String (Int -> AuthenticateException -> ShowS) -> (AuthenticateException -> String) -> ([AuthenticateException] -> ShowS) -> Show AuthenticateException forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> AuthenticateException -> ShowS showsPrec :: Int -> AuthenticateException -> ShowS $cshow :: AuthenticateException -> String show :: AuthenticateException -> String $cshowList :: [AuthenticateException] -> ShowS showList :: [AuthenticateException] -> ShowS Show, Typeable) instance Exception AuthenticateException