Fix typos [skip ci]
authorAlexandre Esteves <alexandre.fmp.esteves@gmail.com>
Tue, 12 Feb 2019 17:17:21 +0000 (17:17 +0000)
committerMarge Bot <ben+marge-bot@smart-cactus.org>
Thu, 14 Feb 2019 01:07:28 +0000 (20:07 -0500)
libraries/base/GHC/Natural.hs

index fef76df..b452d51 100644 (file)
@@ -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##