Example of echo server from RWH
Close server socket on exception.
Stylished with stylish-haskell