Specialise lcm :: Word -> Word -> Word (trac#14424)
authorBodigrim <andrew.lelechenko@gmail.com>
Mon, 6 Nov 2017 19:49:11 +0000 (21:49 +0200)
committerBen Gamari <ben@smart-cactus.org>
Mon, 6 Nov 2017 21:39:20 +0000 (16:39 -0500)
libraries/base/GHC/Real.hs

index 6206598..85a1602 100644 (file)
@@ -631,6 +631,7 @@ gcd x y         =  gcd' (abs x) (abs y)
 -- | @'lcm' x y@ is the smallest positive integer that both @x@ and @y@ divide.
 lcm             :: (Integral a) => a -> a -> a
 {-# SPECIALISE lcm :: Int -> Int -> Int #-}
+{-# SPECIALISE lcm :: Word -> Word -> Word #-}
 {-# NOINLINE [1] lcm #-}
 lcm _ 0         =  0
 lcm 0 _         =  0