Целочисленное значение с плавающей запятой

Этот код работает:

posToXY :: Float -> Float -> Integer
posToXY a b = do
        let y = a / b
        round y

Но это не работает:

posToXY :: Integer -> Integer -> Integer
posToXY a b = do
        let y = a / b
        round y

Я понимаю, что операция '/' не определяется для целочисленного типа, но я не знаю, как исправить код для работы с целочисленными параметрами.