move // operator to internals

2016-02-23 02:36:12 +01:00 · 2016-02-23 02:36:12 +01:00 · 5b677c44be
commit 5b677c44be
parent 87f99075ae
1 changed files with 5 additions and 0 deletions
--- 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