Reformatted using Stylish Haskell.