A TCP-based token bucket server written in Haskell - View it on GitHub