path: root/testsuite/tests/th/TH_spliceE1.hs

module Main where

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

main = print (my_id "hello")