instanceStateChangeSet
    :: (MonadResource m, MonadBaseControl IO m)
    => Conduit XmlElement m InstanceStateChange
instanceStateChangeSet = itemConduit conv
  where
    conv e = InstanceStateChange
        <$> e .< "instanceId"
        <*> instanceStateConv "currentState" e
        <*> instanceStateConv "previousState" e

------------------------------------------------------------
-- StopInstances
------------------------------------------------------------
instanceStateChangeSet
    :: (MonadResource m, MonadBaseControl IO m)
    => Conduit XmlElement m InstanceStateChange
instanceStateChangeSet = itemConduit conv
  where
    conv e = InstanceStateChange
        <$> e .< "instanceId"
        <*> instanceStateConv "currentState" e
        <*> instanceStateConv "previousState" e

------------------------------------------------------------
-- StopInstances
------------------------------------------------------------
instanceStateChangeSet = itemConduit conv
  where
    conv e = InstanceStateChange
        <$> e .< "instanceId"
        <*> instanceStateConv "currentState" e
        <*> instanceStateConv "previousState" e

------------------------------------------------------------
-- StopInstances
------------------------------------------------------------