-- | Description: Account auth description data type
module Polysemy.Account.Data.AccountAuthDescription where

-- | A freeform text used to describe the nature of an 'Polysemy.Account.AccountAuth', like whether it's a generated or
-- user-supplied password.
newtype AccountAuthDescription =
  AccountAuthDescription { AccountAuthDescription -> Text
unAccountAuthDescription :: Text }
  deriving stock (AccountAuthDescription -> AccountAuthDescription -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AccountAuthDescription -> AccountAuthDescription -> Bool
$c/= :: AccountAuthDescription -> AccountAuthDescription -> Bool
== :: AccountAuthDescription -> AccountAuthDescription -> Bool
$c== :: AccountAuthDescription -> AccountAuthDescription -> Bool
Eq, Int -> AccountAuthDescription -> ShowS
[AccountAuthDescription] -> ShowS
AccountAuthDescription -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AccountAuthDescription] -> ShowS
$cshowList :: [AccountAuthDescription] -> ShowS
show :: AccountAuthDescription -> String
$cshow :: AccountAuthDescription -> String
showsPrec :: Int -> AccountAuthDescription -> ShowS
$cshowsPrec :: Int -> AccountAuthDescription -> ShowS
Show, forall x. Rep AccountAuthDescription x -> AccountAuthDescription
forall x. AccountAuthDescription -> Rep AccountAuthDescription x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep AccountAuthDescription x -> AccountAuthDescription
$cfrom :: forall x. AccountAuthDescription -> Rep AccountAuthDescription x
Generic)
  deriving newtype (String -> AccountAuthDescription
forall a. (String -> a) -> IsString a
fromString :: String -> AccountAuthDescription
$cfromString :: String -> AccountAuthDescription
IsString, Eq AccountAuthDescription
AccountAuthDescription -> AccountAuthDescription -> Bool
AccountAuthDescription -> AccountAuthDescription -> Ordering
AccountAuthDescription
-> AccountAuthDescription -> AccountAuthDescription
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: AccountAuthDescription
-> AccountAuthDescription -> AccountAuthDescription
$cmin :: AccountAuthDescription
-> AccountAuthDescription -> AccountAuthDescription
max :: AccountAuthDescription
-> AccountAuthDescription -> AccountAuthDescription
$cmax :: AccountAuthDescription
-> AccountAuthDescription -> AccountAuthDescription
>= :: AccountAuthDescription -> AccountAuthDescription -> Bool
$c>= :: AccountAuthDescription -> AccountAuthDescription -> Bool
> :: AccountAuthDescription -> AccountAuthDescription -> Bool
$c> :: AccountAuthDescription -> AccountAuthDescription -> Bool
<= :: AccountAuthDescription -> AccountAuthDescription -> Bool
$c<= :: AccountAuthDescription -> AccountAuthDescription -> Bool
< :: AccountAuthDescription -> AccountAuthDescription -> Bool
$c< :: AccountAuthDescription -> AccountAuthDescription -> Bool
compare :: AccountAuthDescription -> AccountAuthDescription -> Ordering
$ccompare :: AccountAuthDescription -> AccountAuthDescription -> Ordering
Ord)

json ''AccountAuthDescription