blob: 75719a16d9e59d99e0ffe362dab22218b789fdf1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
{-# LANGUAGE DeriveDataTypeable, FlexibleContexts #-}
module T7445a ( foo ) where
import Data.Data
import Language.Haskell.TH.Quote
import Language.Haskell.TH
data Expr
= IntExpr Integer
deriving (Show, Typeable, Data)
foo :: ExpQ
foo = dataToExpQ (const Nothing) (IntExpr 1)
|
