diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-10-30 20:56:33 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2019-10-30 20:57:45 -0400 |
| commit | 300ce9646575af0e1be6685432280895a4376dfe (patch) | |
| tree | 20ae9f23590029627491795160e44616a8981d58 /libraries/base/Data/Fixed.hs | |
| parent | 4898df1cc25132dc9e2599d4fa4e1bbc9423cda5 (diff) | |
| download | haskell-wip/haddock-fixes.tar.gz | |
base: Various haddock fixeswip/haddock-fixes
Just a few things I found while looking at #17383.
Diffstat (limited to 'libraries/base/Data/Fixed.hs')
| -rw-r--r-- | libraries/base/Data/Fixed.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libraries/base/Data/Fixed.hs b/libraries/base/Data/Fixed.hs index e99efea256..232175a1ab 100644 --- a/libraries/base/Data/Fixed.hs +++ b/libraries/base/Data/Fixed.hs @@ -46,16 +46,16 @@ import Text.Read.Lex default () -- avoid any defaulting shenanigans --- | generalisation of 'div' to any instance of 'Real' +-- | Generalisation of 'div' to any instance of 'Real' div' :: (Real a,Integral b) => a -> a -> b div' n d = floor ((toRational n) / (toRational d)) --- | generalisation of 'divMod' to any instance of 'Real' +-- | Generalisation of 'divMod' to any instance of 'Real' divMod' :: (Real a,Integral b) => a -> a -> (b,a) divMod' n d = (f,n - (fromIntegral f) * d) where f = div' n d --- | generalisation of 'mod' to any instance of 'Real' +-- | Generalisation of 'mod' to any instance of 'Real' mod' :: (Real a) => a -> a -> a mod' n d = n - (fromInteger f) * d where f = div' n d |