Fix #11287.
[ghc.git] / testsuite / tests / th / TH_spliceE6.hs
1 {-# LANGUAGE TemplateHaskell #-}
2
3 -- This failed in 6.10.1, as the Name's for True and False in
4 -- Language.Haskell.TH.Syntax.{trueName,falseName} were wrong.
5
6 module TH_spliceE6 where
7
8 a = $( (\b -> [| b |]) True )
9 b = $( (\m -> [| m |]) (Just 'm') )
10 c = $( (\e -> [| e |]) (Left 'e' :: Either Char Bool) )
11