module Network.AWS.ImportExport.Types.Sum where
import Network.AWS.Prelude
data JobType
= Export
| Import
deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)
instance FromText JobType where
parser = takeLowerText >>= \case
"export" -> pure Export
"import" -> pure Import
e -> fromTextError $ "Failure parsing JobType from value: '" <> e
<> "'. Accepted values: Export, Import"
instance ToText JobType where
toText = \case
Export -> "Export"
Import -> "Import"
instance Hashable JobType
instance ToByteString JobType
instance ToQuery JobType
instance ToHeader JobType
instance FromXML JobType where
parseXML = parseXMLText "JobType"