{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.WorkDocs.Types.UserType
-- Copyright   : (c) 2013-2021 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
module Amazonka.WorkDocs.Types.UserType
  ( UserType
      ( ..,
        UserType_ADMIN,
        UserType_MINIMALUSER,
        UserType_POWERUSER,
        UserType_USER,
        UserType_WORKSPACESUSER
      ),
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Prelude as Prelude

newtype UserType = UserType'
  { UserType -> Text
fromUserType ::
      Core.Text
  }
  deriving stock
    ( Int -> UserType -> ShowS
[UserType] -> ShowS
UserType -> String
(Int -> UserType -> ShowS)
-> (UserType -> String) -> ([UserType] -> ShowS) -> Show UserType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UserType] -> ShowS
$cshowList :: [UserType] -> ShowS
show :: UserType -> String
$cshow :: UserType -> String
showsPrec :: Int -> UserType -> ShowS
$cshowsPrec :: Int -> UserType -> ShowS
Prelude.Show,
      ReadPrec [UserType]
ReadPrec UserType
Int -> ReadS UserType
ReadS [UserType]
(Int -> ReadS UserType)
-> ReadS [UserType]
-> ReadPrec UserType
-> ReadPrec [UserType]
-> Read UserType
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UserType]
$creadListPrec :: ReadPrec [UserType]
readPrec :: ReadPrec UserType
$creadPrec :: ReadPrec UserType
readList :: ReadS [UserType]
$creadList :: ReadS [UserType]
readsPrec :: Int -> ReadS UserType
$creadsPrec :: Int -> ReadS UserType
Prelude.Read,
      UserType -> UserType -> Bool
(UserType -> UserType -> Bool)
-> (UserType -> UserType -> Bool) -> Eq UserType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UserType -> UserType -> Bool
$c/= :: UserType -> UserType -> Bool
== :: UserType -> UserType -> Bool
$c== :: UserType -> UserType -> Bool
Prelude.Eq,
      Eq UserType
Eq UserType
-> (UserType -> UserType -> Ordering)
-> (UserType -> UserType -> Bool)
-> (UserType -> UserType -> Bool)
-> (UserType -> UserType -> Bool)
-> (UserType -> UserType -> Bool)
-> (UserType -> UserType -> UserType)
-> (UserType -> UserType -> UserType)
-> Ord UserType
UserType -> UserType -> Bool
UserType -> UserType -> Ordering
UserType -> UserType -> UserType
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 :: UserType -> UserType -> UserType
$cmin :: UserType -> UserType -> UserType
max :: UserType -> UserType -> UserType
$cmax :: UserType -> UserType -> UserType
>= :: UserType -> UserType -> Bool
$c>= :: UserType -> UserType -> Bool
> :: UserType -> UserType -> Bool
$c> :: UserType -> UserType -> Bool
<= :: UserType -> UserType -> Bool
$c<= :: UserType -> UserType -> Bool
< :: UserType -> UserType -> Bool
$c< :: UserType -> UserType -> Bool
compare :: UserType -> UserType -> Ordering
$ccompare :: UserType -> UserType -> Ordering
$cp1Ord :: Eq UserType
Prelude.Ord,
      (forall x. UserType -> Rep UserType x)
-> (forall x. Rep UserType x -> UserType) -> Generic UserType
forall x. Rep UserType x -> UserType
forall x. UserType -> Rep UserType x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UserType x -> UserType
$cfrom :: forall x. UserType -> Rep UserType x
Prelude.Generic
    )
  deriving newtype
    ( Int -> UserType -> Int
UserType -> Int
(Int -> UserType -> Int) -> (UserType -> Int) -> Hashable UserType
forall a. (Int -> a -> Int) -> (a -> Int) -> Hashable a
hash :: UserType -> Int
$chash :: UserType -> Int
hashWithSalt :: Int -> UserType -> Int
$chashWithSalt :: Int -> UserType -> Int
Prelude.Hashable,
      UserType -> ()
(UserType -> ()) -> NFData UserType
forall a. (a -> ()) -> NFData a
rnf :: UserType -> ()
$crnf :: UserType -> ()
Prelude.NFData,
      Text -> Either String UserType
(Text -> Either String UserType) -> FromText UserType
forall a. (Text -> Either String a) -> FromText a
fromText :: Text -> Either String UserType
$cfromText :: Text -> Either String UserType
Core.FromText,
      UserType -> Text
(UserType -> Text) -> ToText UserType
forall a. (a -> Text) -> ToText a
toText :: UserType -> Text
$ctoText :: UserType -> Text
Core.ToText,
      UserType -> ByteString
(UserType -> ByteString) -> ToByteString UserType
forall a. (a -> ByteString) -> ToByteString a
toBS :: UserType -> ByteString
$ctoBS :: UserType -> ByteString
Core.ToByteString,
      UserType -> ByteStringBuilder
(UserType -> ByteStringBuilder) -> ToLog UserType
forall a. (a -> ByteStringBuilder) -> ToLog a
build :: UserType -> ByteStringBuilder
$cbuild :: UserType -> ByteStringBuilder
Core.ToLog,
      HeaderName -> UserType -> [Header]
(HeaderName -> UserType -> [Header]) -> ToHeader UserType
forall a. (HeaderName -> a -> [Header]) -> ToHeader a
toHeader :: HeaderName -> UserType -> [Header]
$ctoHeader :: HeaderName -> UserType -> [Header]
Core.ToHeader,
      UserType -> QueryString
(UserType -> QueryString) -> ToQuery UserType
forall a. (a -> QueryString) -> ToQuery a
toQuery :: UserType -> QueryString
$ctoQuery :: UserType -> QueryString
Core.ToQuery,
      Value -> Parser [UserType]
Value -> Parser UserType
(Value -> Parser UserType)
-> (Value -> Parser [UserType]) -> FromJSON UserType
forall a.
(Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a
parseJSONList :: Value -> Parser [UserType]
$cparseJSONList :: Value -> Parser [UserType]
parseJSON :: Value -> Parser UserType
$cparseJSON :: Value -> Parser UserType
Core.FromJSON,
      FromJSONKeyFunction [UserType]
FromJSONKeyFunction UserType
FromJSONKeyFunction UserType
-> FromJSONKeyFunction [UserType] -> FromJSONKey UserType
forall a.
FromJSONKeyFunction a -> FromJSONKeyFunction [a] -> FromJSONKey a
fromJSONKeyList :: FromJSONKeyFunction [UserType]
$cfromJSONKeyList :: FromJSONKeyFunction [UserType]
fromJSONKey :: FromJSONKeyFunction UserType
$cfromJSONKey :: FromJSONKeyFunction UserType
Core.FromJSONKey,
      [UserType] -> Encoding
[UserType] -> Value
UserType -> Encoding
UserType -> Value
(UserType -> Value)
-> (UserType -> Encoding)
-> ([UserType] -> Value)
-> ([UserType] -> Encoding)
-> ToJSON UserType
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> ToJSON a
toEncodingList :: [UserType] -> Encoding
$ctoEncodingList :: [UserType] -> Encoding
toJSONList :: [UserType] -> Value
$ctoJSONList :: [UserType] -> Value
toEncoding :: UserType -> Encoding
$ctoEncoding :: UserType -> Encoding
toJSON :: UserType -> Value
$ctoJSON :: UserType -> Value
Core.ToJSON,
      ToJSONKeyFunction [UserType]
ToJSONKeyFunction UserType
ToJSONKeyFunction UserType
-> ToJSONKeyFunction [UserType] -> ToJSONKey UserType
forall a.
ToJSONKeyFunction a -> ToJSONKeyFunction [a] -> ToJSONKey a
toJSONKeyList :: ToJSONKeyFunction [UserType]
$ctoJSONKeyList :: ToJSONKeyFunction [UserType]
toJSONKey :: ToJSONKeyFunction UserType
$ctoJSONKey :: ToJSONKeyFunction UserType
Core.ToJSONKey,
      [Node] -> Either String UserType
([Node] -> Either String UserType) -> FromXML UserType
forall a. ([Node] -> Either String a) -> FromXML a
parseXML :: [Node] -> Either String UserType
$cparseXML :: [Node] -> Either String UserType
Core.FromXML,
      UserType -> XML
(UserType -> XML) -> ToXML UserType
forall a. (a -> XML) -> ToXML a
toXML :: UserType -> XML
$ctoXML :: UserType -> XML
Core.ToXML
    )

pattern UserType_ADMIN :: UserType
pattern $bUserType_ADMIN :: UserType
$mUserType_ADMIN :: forall r. UserType -> (Void# -> r) -> (Void# -> r) -> r
UserType_ADMIN = UserType' "ADMIN"

pattern UserType_MINIMALUSER :: UserType
pattern $bUserType_MINIMALUSER :: UserType
$mUserType_MINIMALUSER :: forall r. UserType -> (Void# -> r) -> (Void# -> r) -> r
UserType_MINIMALUSER = UserType' "MINIMALUSER"

pattern UserType_POWERUSER :: UserType
pattern $bUserType_POWERUSER :: UserType
$mUserType_POWERUSER :: forall r. UserType -> (Void# -> r) -> (Void# -> r) -> r
UserType_POWERUSER = UserType' "POWERUSER"

pattern UserType_USER :: UserType
pattern $bUserType_USER :: UserType
$mUserType_USER :: forall r. UserType -> (Void# -> r) -> (Void# -> r) -> r
UserType_USER = UserType' "USER"

pattern UserType_WORKSPACESUSER :: UserType
pattern $bUserType_WORKSPACESUSER :: UserType
$mUserType_WORKSPACESUSER :: forall r. UserType -> (Void# -> r) -> (Void# -> r) -> r
UserType_WORKSPACESUSER = UserType' "WORKSPACESUSER"

{-# COMPLETE
  UserType_ADMIN,
  UserType_MINIMALUSER,
  UserType_POWERUSER,
  UserType_USER,
  UserType_WORKSPACESUSER,
  UserType'
  #-}