testsuite/tests/th/TH_spliceD1_Lib.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

{-# LANGUAGE TemplateHaskell #-}

module TH_spliceD1_Lib where
import Language.Haskell.TH

foo :: Q [Dec]
foo = sequence [funD (mkName "f")
       [
         clause
           [varP $ mkName "c",varP $ mkName "c"]
           (normalB $ [| undefined |])
           []
       ]]