1 2 3 4 5 6 7 8 9 10
{-# LANGUAGE TemplateHaskell #-} -- Duplicate bindings introduced one at a time with TH module ShouldFail where f x = x $([d| h x = x |]) f x = x