1 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/th/TH_exn1.hs b/testsuite/tests/th/TH_exn1.hs
new file mode 100644
index 0000000000..b401ca40d5
--- /dev/null
+++ b/testsuite/tests/th/TH_exn1.hs
@@ -0,0 +1,11 @@
+{-# LANGUAGE TemplateHaskell #-}
+
+-- Test error message when the code in a splice
+-- fails in an immediate fashion (e.g. with a
+-- pattern match failure)
+
+module ShouldCompile where
+
+$( case reverse "no" of
+	[] -> return []
+ )