Разделить Int на Int и вернуть Int

Мне нужна функция, которая получает два Int s ( a и b ) и возвращает A / B как Int . Я уверен, что A / B всегда будет целым числом.

Вот мое решение:

myDiv :: Int -> Int -> Int
myDiv a b = 
      let x = fromIntegral a
          y = fromIntegral b
      in truncate (x / y)

Но хочу найти более простое решение. Примерно так:

myDiv :: Int -> Int -> Int
myDiv a b = a / b

Как я могу разделить Int на Int и получить Int?