Commit 6bd6c198 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #3467

parent 0072a617
{-# LANGUAGE TemplateHaskell #-}
-- Test Trac #3467
module T3467 where
import Language.Haskell.TH
import Foreign
sizeq :: Name -> Q Exp
sizeq n = [| sizeOf (undefined :: $(conT n)) |]
......@@ -147,4 +147,4 @@ test('T3177a', normal, compile_fail, ['-v0'])
test('T3319', normal, compile, ['-ddump-splices -v0'])
test('T3395', normal, compile_fail, ['-v0'])
test('T3467', normal, compile, [''])
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment