summaryrefslogtreecommitdiff
path: root/testsuite/tests/th/TH_raiseErr1.hs
blob: 97396f16c54ca76846bf01a0450f6be4c4c99cff (plain)
1
2
3
4
module TH_raiseErr1 where
import Language.Haskell.TH

foo = $(do { report True "Error test succeeded"; fail "" })