module Network.AWS.EC2.Internal where
import GHC.Generics
import Network.AWS.Data
import Network.AWS.Prelude
data Message = Message
{ _msgCode :: Text
, _msgMessage :: Text
} deriving (Eq, Ord, Show, Generic)
instance FromXML Message where
parseXML x = Message
<$> x .@ "Code"
<*> x .@ "Message"
msgCode :: Lens' Message Text
msgCode = lens _msgCode (\s x -> s { _msgCode = x })
msgMessage :: Lens' Message Text
msgMessage = lens _msgMessage (\s x -> s { _msgMessage = x })
data EC2Error = EC2Error
{ _errRequestID :: Text
, _errErrors :: List "Error" Message
} deriving (Eq, Ord, Show, Generic)
instance FromXML EC2Error where
parseXML x = EC2Error
<$> x .@ "RequestID"
<*> x .@ "Errors"
errRequestID :: Lens' EC2Error Text
errRequestID = lens _errRequestID (\s x -> s { _errRequestID = x })
errErrors :: Lens' EC2Error [Message]
errErrors = lens _errErrors (\s x -> s { _errErrors = x }) . _List