[Haskell] Fizz buzz

fizz_buzz.hs

fb :: [Integer] -> [String]
fb list = [ fizzbuzz element | element <- list ]
  where fizzbuzz x = fizz x ++ buzz x
          where fizz x = if x `mod` 3 == 0 then "Fizz" else ""
                buzz x = if x `mod` 5 == 0 then "Buzz" else ""