1 2 3 4 5 6 7 8 9 10
{-# LANGUAGE EmptyDataDecls #-} -- Trac #3572 module Main where import Language.Haskell.TH import Language.Haskell.TH.Ppr main = putStrLn . pprint =<< runQ [d| data Void |]