From 66b5b3eef1aa9fa9f192a85847d34b2756bec33f Mon Sep 17 00:00:00 2001
From: Bodigrim <andrew.lelechenko@gmail.com>
Date: Mon, 6 Nov 2017 21:49:11 +0200
Subject: Specialise lcm :: Word -> Word -> Word (trac#14424)

---
 libraries/base/GHC/Real.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/libraries/base/GHC/Real.hs b/libraries/base/GHC/Real.hs
index 6206598e39..85a160258c 100644
--- a/libraries/base/GHC/Real.hs
+++ b/libraries/base/GHC/Real.hs
@@ -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
-- 
cgit v1.2.1