mirror of
https://github.com/freckle/yesod-auth-oauth2.git
synced 2026-02-08 00:57:28 +01:00
20 lines
531 B
Haskell
20 lines
531 B
Haskell
{-# LANGUAGE DeriveDataTypeable #-}
|
|
|
|
module Yesod.Auth.OAuth2.Exception
|
|
( YesodOAuth2Exception(..)
|
|
) where
|
|
|
|
import Control.Exception.Safe
|
|
import qualified Data.ByteString.Lazy as BL
|
|
import Data.Text (Text)
|
|
|
|
-- | Provider name and error
|
|
--
|
|
-- The error is a lazy bytestring because it's most often encoded JSON.
|
|
--
|
|
-- Deprecated. Eventually, we'll return @Either@s all the way up.
|
|
--
|
|
data YesodOAuth2Exception = InvalidProfileResponse Text BL.ByteString
|
|
deriving (Show, Typeable)
|
|
instance Exception YesodOAuth2Exception
|