35 lines
900 B
Haskell
35 lines
900 B
Haskell
{-# LANGUAGE DeriveDataTypeable #-}
|
|
--------------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : Network.OpenID.Types
|
|
-- Copyright : (c) Trevor Elliott, 2008
|
|
-- License : BSD3
|
|
--
|
|
-- Maintainer : Trevor Elliott <trevor@geekgateway.com>
|
|
-- Stability :
|
|
-- Portability :
|
|
--
|
|
|
|
module OpenId2.Types (
|
|
Provider (..)
|
|
, Identifier (..)
|
|
, IdentType (..)
|
|
, AuthenticateException (..)
|
|
) where
|
|
|
|
-- Libraries
|
|
import Data.Data (Data)
|
|
import Data.Typeable (Typeable)
|
|
import Web.Authenticate.Internal
|
|
import Data.Text (Text)
|
|
|
|
-- | An OpenID provider.
|
|
newtype Provider = Provider { providerURI :: Text } deriving (Eq,Show)
|
|
|
|
-- | A valid OpenID identifier.
|
|
newtype Identifier = Identifier { identifier :: Text }
|
|
deriving (Eq, Ord, Show, Read, Data, Typeable)
|
|
|
|
data IdentType = OPIdent | ClaimedIdent
|
|
deriving (Eq, Ord, Show, Read, Data, Typeable)
|