Pretty FizzBuzz with types and stuff!

FizzBuzz.hs

import Data.List 

data FizzBuzz = Fizz | Buzz | FizzBuzz | Num Int 

instance Show FizzBuzz where
    show Fizz     = "Fizz"
    show Buzz     = "Buzz"
    show FizzBuzz = "FizzBuzz"
    show (Num n)  = show n

bzzr :: Int -> FizzBuzz
bzzr n | zeroMod 15 = FizzBuzz
       | zeroMod 3  = Fizz
       | zeroMod 5  = Buzz
       | otherwise  = Num n
    where 
        zeroMod x = mod n x == 0

main :: IO ()
main = print $ intercalate ", " $ map (show . bzzr) [1..100]