snapframework/snap-server — pull request #21 by basvandijk (2012-03-09 16:13:50+00:00)
Title: Fixed timeout bug when reading message body

In `Snap.Internal.Types` there's this function:

```haskell
runRequestBody iter = do
bumpTimeout <- liftM ($ 5) getTimeoutAction
...
```

However instead of bumping (tickle) the timeout with 5 seconds, bumpTimeout will actually incorrectly hard set it to 5 second.

I solved this bug together with @Lemmih.