[Haskell] instance Bounded Double