Concurrent.hs: Respect specified TLS behaviour