Simplify Haskell datastructures