Fix #11287.
[ghc.git] / testsuite / tests / th / TH_spliceE1.hs
1 module Main where
2
3 my_id :: a -> a
4 my_id x = $( [| x |] )
5
6 main = print (my_id "hello")