TH_spliceE1.hs 88 Bytes
Newer Older
1 2 3 4 5 6
module Main where

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

main = print (my_id "hello")