X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FReal.lhs;fp=GHC%2FReal.lhs;h=6a3f335b0c2239f39b996f3032f9584590dcec58;hb=dcf1dbdc1d885130136b28f70dc7548ec10f07b5;hp=eca9974688e02238c828655bd5c2da0b38324722;hpb=1a2d88a60a8e2c8be84879d79f148d4c6ceb348e;p=ghc-base.git

diff --git a/GHC/Real.lhs b/GHC/Real.lhs
index eca9974..6a3f335 100644
--- a/GHC/Real.lhs
+++ b/GHC/Real.lhs
@@ -462,6 +462,10 @@ gcdInteger' :: Integer -> Integer -> Integer
 gcdInteger' 0 0 = error "GHC.Real.gcdInteger': gcd 0 0 is undefined"
 gcdInteger' a b = gcdInteger a b
 
+gcdInt :: Int -> Int -> Int
+gcdInt 0 0 = error "GHC.Real.gcdInt: gcd 0 0 is undefined"
+gcdInt a b = fromIntegral (gcdInteger (fromIntegral a) (fromIntegral b))
+
 integralEnumFrom :: (Integral a, Bounded a) => a -> [a]
 integralEnumFrom n = map fromInteger [toInteger n .. toInteger (maxBound `asTypeOf` n)]