diff options
| author | Alexandre Esteves <alexandre.fmp.esteves@gmail.com> | 2019-02-12 17:17:21 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-02-13 20:07:28 -0500 |
| commit | e40f00dcf96ba9009801dd1ca37b4abf12951b6e (patch) | |
| tree | e7644372c3fcae531afed23b1ab269dea4a084ab | |
| parent | 4af0a2d609651c4bae45d84d2bf7ce9fe8cca350 (diff) | |
| download | haskell-e40f00dcf96ba9009801dd1ca37b4abf12951b6e.tar.gz | |
Fix typos [skip ci]
| -rw-r--r-- | libraries/base/GHC/Natural.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/GHC/Natural.hs b/libraries/base/GHC/Natural.hs index fef76df43b..b452d5119d 100644 --- a/libraries/base/GHC/Natural.hs +++ b/libraries/base/GHC/Natural.hs @@ -98,7 +98,7 @@ default () -- TODO: Note that some functions have commented CONSTANT_FOLDED annotations, -- that's because the Integer counter-parts of these functions do actually have -- a builtinRule in PrelRules, where the Natural functions do not. The plan is --- to eventually also add builtin rules for those function on Natural. +-- to eventually also add builtin rules for those functions on Natural. #define CONSTANT_FOLDED NOINLINE ------------------------------------------------------------------------------- @@ -188,7 +188,7 @@ gcdNatural (NatJ# x) (NatS# y) = NatS# (gcdBigNatWord x y) gcdNatural (NatS# x) (NatJ# y) = NatS# (gcdBigNatWord y x) gcdNatural (NatS# x) (NatS# y) = NatS# (gcdWord x y) --- | compute least common multiplier. +-- | Compute least common multiple. lcmNatural :: Natural -> Natural -> Natural lcmNatural (NatS# 0##) _ = NatS# 0## lcmNatural _ (NatS# 0##) = NatS# 0## |