Safe Haskell | Safe-Inferred |
---|---|
Language | GHC2021 |
Synopsis
- data Code = Code {
- codeKey :: !Key
- codeScope :: !Scope
- codeValue :: !Value
- codeRetries :: !Retries
- codeTTL :: !Timeout
- codeFor :: !EmailAddress
- codeAccount :: !(Maybe UUID)
- newtype Key = Key {
- asciiKey :: Range 20 20 AsciiBase64Url
- data Scope
- newtype Value = Value {
- asciiValue :: Range 6 20 AsciiBase64Url
- data KeyValuePair = KeyValuePair {}
- newtype Timeout = Timeout {}
- newtype Retries = Retries {
- numRetries :: Word8
- codeToKeyValuePair :: Code -> KeyValuePair
- scopeFromAction :: VerificationAction -> Scope
Documentation
Code | |
|
Key | |
|
AccountDeletion | |
IdentityVerification | |
PasswordReset | |
AccountLogin | |
AccountApproval | |
CreateScimToken | |
DeleteTeam |
Instances
Arbitrary Scope Source # | |
Generic Scope Source # | |
Show Scope Source # | |
Cql Scope Source # | |
Eq Scope Source # | |
Ord Scope Source # | |
type Rep Scope Source # | |
Defined in Wire.VerificationCode type Rep Scope = D1 ('MetaData "Scope" "Wire.VerificationCode" "wire-subsystems-0.1.0-8kLXA8DL8T7Joz69IIRPwJ" 'False) ((C1 ('MetaCons "AccountDeletion" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "IdentityVerification" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "PasswordReset" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "AccountLogin" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "AccountApproval" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "CreateScimToken" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "DeleteTeam" 'PrefixI 'False) (U1 :: Type -> Type)))) |
Value | |
|
data KeyValuePair Source #
A key/value pair. This would actually more accurately if the value would actually be a "value" but since we use "key" and "code" already in quite a few place in the API (but without a type, using plain fields). This will make it easier to re-use a key/value pair in the API, keeping "code" in the JSON for backwards compatibility
Instances
A Timeout
is rendered in/parsed from JSON as an integer representing the
number of seconds remaining.
Instances
Arbitrary Timeout | |
FromJSON Timeout | |
ToJSON Timeout | |
Enum Timeout | |
Num Timeout | |
Fractional Timeout | |
Real Timeout | |
Defined in Data.Code toRational :: Timeout -> Rational # | |
RealFrac Timeout | |
Show Timeout | |
ToByteString Timeout | A |
Eq Timeout | |
Ord Timeout | |
ToSchema Timeout | |
Defined in Data.Code | |
ToSchema Timeout | |
Defined in Data.Code |
Instances
Arbitrary Retries Source # | |
Enum Retries Source # | |
Num Retries Source # | |
Integral Retries Source # | |
Defined in Wire.VerificationCode | |
Real Retries Source # | |
Defined in Wire.VerificationCode toRational :: Retries -> Rational # | |
Show Retries Source # | |
Cql Retries Source # | |
Eq Retries Source # | |
Ord Retries Source # | |