------------------------------------------------------------
-- GetConsoleOutput
------------------------------------------------------------
getConsoleOutput
    :: (MonadResource m, MonadBaseControl IO m)
    => Text -- ^ InstanceId
    -> EC2 m ConsoleOutput
getConsoleOutput iid =
    ec2Query "GetConsoleOutput" ["InstanceId" |= iid] $ \e ->
        ConsoleOutput
        <$> e .< "instanceId"
        <*> e .< "timestamp"
        <*> e .< "output"
getConsoleOutput
    :: (MonadResource m, MonadBaseControl IO m)
    => Text -- ^ InstanceId
    -> EC2 m ConsoleOutput
getConsoleOutput iid =
    ec2Query "GetConsoleOutput" ["InstanceId" |= iid] $ \e ->
        ConsoleOutput
        <$> e .< "instanceId"
        <*> e .< "timestamp"
        <*> e .< "output"
getConsoleOutput iid =
    ec2Query "GetConsoleOutput" ["InstanceId" |= iid] $ \e ->
        ConsoleOutput
        <$> e .< "instanceId"
        <*> e .< "timestamp"
        <*> e .< "output"