Add a test that $( (\b -> [| b |]) True ) works

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

+{-# LANGUAGE TemplateHaskell #-}
+
+-- This failed in 6.10.1, as the Name's for True and False in
+-- Language.Haskell.TH.Syntax.{trueName,falseName} were wrong.
+
+module TH_spliceE6 where
+
+a = $( (\b -> [| b |]) True )
+b = $( (\m -> [| m |]) (Just 'm') )
+c = $( (\e -> [| e |]) (Left 'e' :: Either Char Bool) )
+

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

@@ -25,6 +25,8 @@ test('TH_spliceE5',
      multimod_compile_and_run,
      ['TH_spliceE5.hs', '-v0'])
 
+test('TH_spliceE6', normal, compile, ['-v0'])
+
 # Testing profiling with TH is a bit tricky; we've already disabled
 # the prof way above, and also we want to add options specifically for
 # profiling (-osuf p_o) because this is necessary when mixing