25 lines
532 B
Haskell
25 lines
532 B
Haskell
module Model.Tokens.Lens
|
|
( module Model.Tokens.Lens
|
|
) where
|
|
|
|
import Control.Lens
|
|
|
|
|
|
class HasTokenIdentifier s a | s -> a where
|
|
_tokenIdentifier :: Lens' s a
|
|
|
|
class HasTokenIssuedBy s a | s -> a where
|
|
_tokenIssuedBy :: Lens' s a
|
|
|
|
class HasTokenIssuedFor s a | s -> a where
|
|
_tokenIssuedFor :: Lens' s a
|
|
|
|
class HasTokenIssuedAt s a | s -> a where
|
|
_tokenIssuedAt :: Lens' s a
|
|
|
|
class HasTokenExpiresAt s a | s -> a where
|
|
_tokenExpiresAt :: Lens' s a
|
|
|
|
class HasTokenStartsAt s a | s -> a where
|
|
_tokenStartsAt :: Lens' s a
|