summaryrefslogtreecommitdiff
path: root/tests/examples/ghc86/TH_spliceE1.hs
blob: c80e78225ddf599bd80f7c2dee30d83bab5c58df (plain)
1
2
3
4
5
6
7
8
{-# LANGUAGE TemplateHaskell #-}
module Main where

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

main = print (my_id "hello")