summaryrefslogtreecommitdiff
path: root/Algebra/Prelude/Core.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Algebra/Prelude/Core.hs')
-rw-r--r--Algebra/Prelude/Core.hs2
1 files changed, 0 insertions, 2 deletions
diff --git a/Algebra/Prelude/Core.hs b/Algebra/Prelude/Core.hs
index 458d555..1887685 100644
--- a/Algebra/Prelude/Core.hs
+++ b/Algebra/Prelude/Core.hs
@@ -23,8 +23,6 @@ import Data.Type.Ordinal.Builtin (Ordinal, enumOrdinal, od)
n % m = injectCoeff (n / m)
infixl 7 %
-type Rational = Fraction Integer
-
logBase2 :: Int -> Int
logBase2 x = finiteBitSize x - 1 - countLeadingZeros x
{-# INLINE logBase2 #-}