Commit 20bc50ba authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #3572

parent 77bd4d3a
{-# LANGUAGE EmptyDataDecls #-}
-- Trac #3572
module Main where
import Language.Haskell.TH
import Language.Haskell.TH.Ppr
main = putStrLn . pprint =<< runQ [d| data Void |]
......@@ -153,3 +153,5 @@ test('T3177a', normal, compile_fail, ['-v0'])
test('T3319', normal, compile, ['-ddump-splices -v0'])
test('T3395', normal, compile_fail, ['-v0'])
test('T3467', normal, compile, [''])
test('T3572', normal, compile_and_run, [''])
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