{-# LANGUAGE DeriveDataTypeable #-}
module Yesod.Auth.OAuth2.Exception
( YesodOAuth2Exception(..)
) where
import Control.Exception.Safe
import Data.ByteString.Lazy (ByteString)
import Data.Text (Text)
data YesodOAuth2Exception
= OAuth2Error Text ByteString
| JSONDecodingError Text String
| GenericError Text String
deriving (Int -> YesodOAuth2Exception -> ShowS
[YesodOAuth2Exception] -> ShowS
YesodOAuth2Exception -> String
(Int -> YesodOAuth2Exception -> ShowS)
-> (YesodOAuth2Exception -> String)
-> ([YesodOAuth2Exception] -> ShowS)
-> Show YesodOAuth2Exception
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [YesodOAuth2Exception] -> ShowS
$cshowList :: [YesodOAuth2Exception] -> ShowS
show :: YesodOAuth2Exception -> String
$cshow :: YesodOAuth2Exception -> String
showsPrec :: Int -> YesodOAuth2Exception -> ShowS
$cshowsPrec :: Int -> YesodOAuth2Exception -> ShowS
Show, Typeable)
instance Exception YesodOAuth2Exception