Call to DynamoDB stalls if response is discarded

[NickSeagull]

Looks like if the send call returns an error, and you discard the result, it will get crazy, and stall indefinitely, resulting in a Lambda timeout.

Instead of doing:

-- Amazonka imported qualified as AWS

AWS.putItem tableName
& AWS.piItem .~ dynamoItem
& AWS.send
& void

This works:

let putItem = AWS.putItem tableName
              & AWS.piItem .~ dynamoItem

response <- AWS.send putItem

let status = response ^. AWS.pirsResponseStatus
when (status /= 200) do
  print status
  error ( show $ response ^. AWS.pirsAttributes )

What I suspect that is happening here is that Haskell's laziness is doing something weird with the result, never returning from the mandatory call to AWS.runAWST.

[endgame]

There's a workaround, so I don't want to blow out the 2.0RC too much by including this, but perhaps AWS.send should force the result if it's not already doing so?