Feature request: Client should be able to optionally request "Lizard" as another string whenever the number is a multiple of 13.
That's what the article is referring to. Your function may be more clever, but it's more specific, works in only exactly the requested cases and is harder to change.
fizzbuzz' :: Bool -> Bool -> Int -> String
fizzbuzz' big doLiz n = (fizz . test 5 "buzz" . lizz) id (show n)
where
test d s x | n `mod` d == 0 = const (s ++ x "")
| otherwise = x
fizz = if big then (test 1023 "fizz") else (test 3 "fizz")
lizz = if doLiz then (test 13 "Lizard") else id
fizzbuzz :: Bool -> Bool -> [String]
fizzbuzz big doLiz = map (fizzbuzz' big doLiz) [1..] fizzbuzz' n = (test 1023 "fizz" . test 5 "buzz" . test 13 "Lizard") id (show n)