module AWS.Secrets.Name
  ( SecretName (..),
    getSecretNameText,
  )
where

import Data.String (IsString)
import Data.Text (Text)
import Prelude (Eq, Ord, Show)

newtype SecretName = SecretName Text
  deriving newtype (String -> SecretName
forall a. (String -> a) -> IsString a
fromString :: String -> SecretName
$cfromString :: String -> SecretName
IsString, Int -> SecretName -> ShowS
[SecretName] -> ShowS
SecretName -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SecretName] -> ShowS
$cshowList :: [SecretName] -> ShowS
show :: SecretName -> String
$cshow :: SecretName -> String
showsPrec :: Int -> SecretName -> ShowS
$cshowsPrec :: Int -> SecretName -> ShowS
Show, SecretName -> SecretName -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SecretName -> SecretName -> Bool
$c/= :: SecretName -> SecretName -> Bool
== :: SecretName -> SecretName -> Bool
$c== :: SecretName -> SecretName -> Bool
Eq, Eq SecretName
SecretName -> SecretName -> Bool
SecretName -> SecretName -> Ordering
SecretName -> SecretName -> SecretName
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 :: SecretName -> SecretName -> SecretName
$cmin :: SecretName -> SecretName -> SecretName
max :: SecretName -> SecretName -> SecretName
$cmax :: SecretName -> SecretName -> SecretName
>= :: SecretName -> SecretName -> Bool
$c>= :: SecretName -> SecretName -> Bool
> :: SecretName -> SecretName -> Bool
$c> :: SecretName -> SecretName -> Bool
<= :: SecretName -> SecretName -> Bool
$c<= :: SecretName -> SecretName -> Bool
< :: SecretName -> SecretName -> Bool
$c< :: SecretName -> SecretName -> Bool
compare :: SecretName -> SecretName -> Ordering
$ccompare :: SecretName -> SecretName -> Ordering
Ord)

getSecretNameText :: SecretName -> Text
getSecretNameText :: SecretName -> Text
getSecretNameText (SecretName Text
x) = Text
x