@@ -244,29 +244,30 @@ instance Ord Bits64 where
244244
245245-- ------------------------------------------------------------- [ Bounded ]
246246
247−-- | Names the upper and lower elements of a type. Ord is not a superclass of
248−-- Bounded since types that are not totally ordered may also have upper and
249−-- lower bounds.
250−class Bounded b where
247+class MinBound b where
251248 -- | The lower bound for the type
252249 minBound : b
250+
251+class MaxBound b where
253252 -- | The upper bound for the type
254253 maxBound : b
255254
256−instance Bounded () where
257− minBound = ()
258− maxBound = ()
259−
260−instance Bounded Bits16 where
255+instance MinBound Bits16 where
261256 minBound = 0x0
257+
258+instance MaxBound Bits16 where
262259 maxBound = 0xffff
263260
264−instance Bounded Bits32 where
261+instance MinBound Bits32 where
265262 minBound = 0x0
263+
264+instance MaxBound Bits32 where
266265 maxBound = 0xffffffff
267266
268−instance Bounded Bits64 where
267+instance MinBound Bits64 where
269268 minBound = 0x0
269+
270+instance MaxBound Bits64 where
270271 maxBound = 0xffffffffffffffff
271272
272273