-{-# LANGUAGE CPP, NoImplicitPrelude, BangPatterns, MagicHash #-}
+{-# LANGUAGE CPP, NoImplicitPrelude, BangPatterns, MagicHash,
+ StandaloneDeriving #-}
{-# OPTIONS_HADDOCK hide #-}
-----------------------------------------------------------------------------
-- |
import GHC.Show
import GHC.Float () -- for RealFrac methods
+
------------------------------------------------------------------------
-- type Int8
------------------------------------------------------------------------
unsafeIndex (m,_) i = fromIntegral i - fromIntegral m
inRange (m,n) i = m <= i && i <= n
+
{-
Note [Order of tests]
y == (-1) && x == minBound
order gives us better code in the common case.
-}
-