basic haskell fizzbuzz

fizzbuzz.hs

fizz :: Integer -> String
fizz n = if ((n `mod` 3) == 0) 
          then "fizz" 
          else ""

buzz :: Integer -> String
buzz n = if ((n `mod` 5) == 0) 
          then "buzz" 
          else ""

fizzbuzz :: Integer -> String
fizzbuzz n = if fizz' ++ buzz' == "" 
              then (show n) 
              else fizz' ++ buzz'
  where fizz' = fizz n
        buzz' = buzz n

main = do
  let fizzbuzz'd = map fizzbuzz [1 .. 100]
  putStrLn $ show fizzbuzz'd