Como escrever uma função que recebe dois números inteiros e retorna o primeiro número dividido pelo segundo - Desafio de Programação Resolvido em Haskell

Informe o primeiro número: 9
Informe o segundo número: 2
A divisão dos dois números é: 4.50

import System.IO
import Text.Printf

-- declaração da função dividir
dividir :: Int->Int->Double

-- definição da função dividir
-- recebe dois inteiros e retorna a
-- divisão como um número real
-- Note o uso de fromIntegral para converter de
-- Int para Double
dividir a b = fromIntegral a / fromIntegral b

-- função principal do programa
main = do
  -- vamos desabilitar o buffer de quebra de linha 
  hSetBuffering stdout NoBuffering
  
  -- vamos pedir para o usuário informar dois números
  -- inteiros
  putStr "Informe o primeiro número: "
  n1 <- readLn::IO Int
  putStr "Informe o segundo número: "
  n2 <- readLn::IO Int
  
  -- agora vamos chamar a função dividir e obter
  -- a divisão dos dois números fornecidos
  let resultado = dividir n1 n2
  
  -- agora mostramos o resultado
  printf "A divisão dos dois números é: %.2f"
    resultado