Fix #11287.
[ghc.git] / testsuite / tests / th / TH_spliceD1_Lib.hs
1 {-# LANGUAGE TemplateHaskell #-}
2
3 module TH_spliceD1_Lib where
4 import Language.Haskell.TH
5
6 foo :: Q [Dec]
7 foo = sequence [funD (mkName "f")
8 [
9 clause
10 [varP $ mkName "c",varP $ mkName "c"]
11 (normalB $ [| undefined |])
12 []
13 ]]