module Numeric.Interval.Bounded where

import Numeric.Interval

whole' :: Bounded a => Interval a
whole' = ( minBound ... maxBound )

empty' :: Bounded a => Interval a
empty' = ( maxBound ... minBound )