Fixed

1
2
3
4
5
6
7
8
data FizzBuzzType = FizzBuzz | Fizz | Buzz | Integral Int deriving Show

fizzbuzz :: Int -> FizzBuzzType
fizzbuzz x
	| x `mod` 15 == 0 = FizzBuzz
	| x `mod` 5 == 0 = Fizz
	| x `mod` 3 == 0 = Buzz
	| otherwise = Integral x