{-# LANGUAGE TemplateHaskell #-} -- Test #3467 module T3467 where import Language.Haskell.TH import Foreign sizeq :: Name -> Q Exp sizeq n = [| sizeOf (undefined :: $(conT n)) |]