summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/th/TH_spliceE6.hs
blob: 0ba1ba5fc461a049fa0871d2ed0d268b86177bb0 (plain)
1
2
3
4
5
6
7
8
9
10
11
{-# 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) )