Test for Trac #2017

testsuite/tests/ghc-regress/th/TH_spliceGuard.hs

+{-# OPTIONS_GHC -XTemplateHaskell #-}
+
+-- Trac #2017
+
+module ShouldCompile where
+
+ import Language.Haskell.TH
+
+ $(do e <- [d| f a b
+                 | a == b = a
+                 | otherwise = b |]
+      return e)
+

testsuite/tests/ghc-regress/th/all.T

@@ -13,6 +13,7 @@ test('TH_repE1', normal, compile, [''])
 test('TH_repE2', normal, compile_and_run, [''])
 test('TH_repE3', normal, compile, [''])
 test('TH_repPrim', normal, compile, ['-v0'])
+test('TH_spliceGuard', normal, compile, ['-v0'])
 test('TH_repPrimOutput', normal, compile_and_run, [''])
 test('TH_repGuard', normal, compile, ['-v0'])
 test('TH_repGuardOutput', normal, compile_and_run, [''])