numerator -package

numerator :: Integral a => Ratio a -> a
base Data.Ratio
Extract the numerator of the ratio in reduced form: the numerator and denominator have no common factor and the denominator is positive.