1 2 3 4
module TH_raiseErr1 where import Language.Haskell.TH foo = $(do { report True "Error test succeeded"; fail "" })