testsuite/tests/th/T2597a_Lib.hs


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

{-# LANGUAGE TemplateHaskell #-}
-- Library module for T2597a

module T2597a_Lib where
import Language.Haskell.TH


mkBug :: ExpQ
mkBug = return $ CompE [BindS (VarP $ mkName "p") (ListE []), NoBindS
			 (VarE $ mkName "p")]