1 2 3 4 5 6 7 8 9
{-# LANGUAGE TemplateHaskell #-} -- Trac #2674 module ShouldFail where import Language.Haskell.TH $(return [FunD (mkName "foo") []])