ghc-exactprint-0.5.7.0: tests/examples/ghc86/TH_spliceE4.hs

{-# 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")