https://topminisite.com/blog/how-to-compare-a-custom-data-type-in-haskell