testsuite/tests/th/TH_typed3.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE TemplateHaskell #-}

module Main where

import Language.Haskell.TH

-- test parenthesis around splice
main = do
    print $( typedSpliceE $ typedBracketE [| 'z' |] )
    print $( typedSpliceE $ appE [| id |] (typedBracketE [| 'z' |]) )