Approximate comparisons for IEEE floating point numbers in Haskell