Haskell FizzBuzz

fizzbuzz.hs

module Main where

fizzBuzz :: Int -> String
fizzBuzz n
    | mod n 15 == 0 = "FizzBuzz"
    | mod n 3 == 0 = "Fizz"
    | mod n 5 == 0 = "Buzz"
    | otherwise = show n
            
main = do
    let myFizzBuzzes = map fizzBuzz [1 .. 100]

    fbs <- readFile "FizzBuzzes.txt"    
    if read fbs == myFizzBuzzes
        then putStrLn "Right."
        else putStrLn "Not right."