summaryrefslogtreecommitdiff
path: root/tests/examples/ghc86/TH_spliceE4.hs
blob: 8844c727e85ed82f734760a3b7481242adb89d7c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
{-# LANGUAGE TemplateHaskell #-}
module Main where

import Language.Haskell.TH

$( do let h x = x
          foo = [| \x -> $(h [| x |]) |]

      [d| baz = $foo |]
 )

main = print (baz "Hello")