Haskell Day 1 (Again)

I've restarted my haskell programming education. Here is my implementation of FizzBuzz

fizzbuzz x | x `mod` 15 == 0 = "FIZZBUZZ"
           | x `mod` 3  == 0 = "FIZZ"
           | x `mod` 5  == 0 = "BUZZ"
           | otherwise       = show x
 
main = print (map fizzbuzz [1..100])

[suffusion-adsense client='ca-pub-6284398857369558' slot='1495369305' width='728' height='90']