1 files changed, 2 insertions, 2 deletions

diff --git a/lib/Numeric/Interval/Bounded.hs b/lib/Numeric/Interval/Bounded.hs
index 2dd4d7b..a0d5d0d 100644
--- a/lib/Numeric/Interval/Bounded.hs
+++ b/lib/Numeric/Interval/Bounded.hs
@@ -2,8 +2,8 @@ module Numeric.Interval.Bounded where
 
 import Numeric.Interval
 
-whole' :: Bounded a => Interval a
+whole' :: (Ord a, Bounded a) => Interval a
 whole' = ( minBound ... maxBound )
 
-empty' :: Bounded a => Interval a
+empty' :: (Ord a, Bounded a) => Interval a
 empty' = ( maxBound ... minBound )