module Network.AWS.Data.Sensitive where
import Control.Lens
import Data.Data (Data, Typeable)
import Data.Monoid
import Data.String
import GHC.Generics (Generic)
import Network.AWS.Data.ByteString
import Network.AWS.Data.JSON
import Network.AWS.Data.Query
import Network.AWS.Data.Text
import Network.AWS.Data.XML
import Prelude
newtype Sensitive a = Sensitive { desensitise :: a }
deriving
( Eq
, Ord
, Read
, IsString
, Monoid
, Data
, Typeable
, Generic
, ToByteString
, FromText
, ToText
, FromXML
, ToXML
, ToQuery
, ToJSON
, FromJSON
)
instance Show (Sensitive a) where
show = const "******"
_Sensitive :: Iso' (Sensitive a) a
_Sensitive = iso desensitise Sensitive