My first Haskell app

fizzBuzz.hs

#!/usr/bin/env runghc

-- | Returns a Fizz Buzz string for a single number
toFizzBuzz :: Int -> String
toFizzBuzz n
    | fizz && buzz = "FizzBuzz"
    | fizz = "Fizz"
    | buzz = "Buzz"
    | otherwise  = show n
    where fizz = n `mod` 3 == 0
          buzz = n `mod` 5 == 0

-- | Returns a list of Fizz Buzz strings for a list of numbers
fizzBuzz :: [Int] -> [String]
fizzBuzz = map toFizzBuzz

main = putStr $ unlines $ fizzBuzz [1..100]