I\'m trying to implement a data structure where if I had the use of infinity for numerical comparison purposes, it would simply things greatly. Note this isn\'t maxBound/min
λ: let infinity = (read "Infinity")::Double λ: infinity > 1e100 True λ: -infinity < -1e100 True