```haskell
  go = do
     nextRequest <- atomically (readTQueue requestQueue)
     concurrently_ (handler nextRequest) go
```