testsuite/tests/th/T3467.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE TemplateHaskell #-}

-- Test Trac #3467

module T3467 where

import Language.Haskell.TH
import Foreign

sizeq :: Name -> Q Exp
sizeq n = [| sizeOf (undefined :: $(conT n)) |]