The current state of the code is depressing, let's make it follow the [haskell-style-guide](https://github.com/tibbe/haskell-style-guide).