summaryrefslogtreecommitdiff
path: root/testsuite/tests/th/TH_spliceE1.hs
blob: bb12cbf277a28be15d76fc5fa55f0f46b2f7aa28 (plain)
1
2
3
4
5
6
module Main where

my_id :: a -> a
my_id x = $( [| x |] )

main = print (my_id "hello")