diff options
| author | Austin Seipp <austin@well-typed.com> | 2013-11-01 22:16:15 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2013-11-01 22:38:20 -0500 |
| commit | 336e94d8d5149789f0f6882a52d2528265107652 (patch) | |
| tree | af62249e9accf89fee81174420b627743e3d4051 /libraries/template-haskell/Language/Haskell/TH/Ppr.hs | |
| parent | bad2d6a2f786e9a3f209eda0e51a82f48b99c362 (diff) | |
| download | haskell-336e94d8d5149789f0f6882a52d2528265107652.tar.gz | |
Allow module reification (#1480)
Authored-by: Gergely Risko <gergely@risko.hu>
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'libraries/template-haskell/Language/Haskell/TH/Ppr.hs')
| -rw-r--r-- | libraries/template-haskell/Language/Haskell/TH/Ppr.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/libraries/template-haskell/Language/Haskell/TH/Ppr.hs b/libraries/template-haskell/Language/Haskell/TH/Ppr.hs index 9bec103752..2023f3a6a2 100644 --- a/libraries/template-haskell/Language/Haskell/TH/Ppr.hs +++ b/libraries/template-haskell/Language/Haskell/TH/Ppr.hs @@ -79,6 +79,13 @@ pprFixity v (Fixity i d) = ppr_fix d <+> int i <+> ppr v ------------------------------ +instance Ppr Module where + ppr (Module pkg m) = text (pkgString pkg) <+> text (modString m) + +instance Ppr ModuleInfo where + ppr (ModuleInfo imps) = text "Module" <+> vcat (map ppr imps) + +------------------------------ instance Ppr Exp where ppr = pprExp noPrec |