From 5b677c44be222dcf78aa7d034dbb31958b295a4e Mon Sep 17 00:00:00 2001 From: rnhmjoj Date: Tue, 23 Feb 2016 02:36:12 +0100 Subject: [PATCH] move // operator to internals --- src/Data/Number/Internal.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/Data/Number/Internal.hs b/src/Data/Number/Internal.hs index 5a5efd0..665c633 100644 --- a/src/Data/Number/Internal.hs +++ b/src/Data/Number/Internal.hs @@ -163,3 +163,8 @@ rest E = E rest (M E) = E rest (M x) = M (rest x) rest (_:|xs) = xs + + +-- | Alias to quot +(//) :: Integral a => a -> a -> a +(//) = quot