0e8f794dc6d7b819541cb52e16352835d0d72cad
[ghc.git] / testsuite / tests / th / T2597a_Lib.hs
1 {-# LANGUAGE TemplateHaskell #-}
2 -- Library module for T2597a
3
4 module T2597a_Lib where
5 import Language.Haskell.TH
6
7
8 mkBug :: ExpQ
9 mkBug = return $ CompE [BindS (VarP $ mkName "p") (ListE []), NoBindS
10 (VarE $ mkName "p")]
11
12