1 2 3 4 5 6 7
{-# LANGUAGE DeriveLift #-} module T20688 where import Language.Haskell.TH.Syntax data Foo = Foo Int Bool deriving (Lift, Show)