refactor GF.Infra.Modules for better error messages

2010-01-31 15:54:25 +00:00
parent acd927f87b
commit be6465a2eb
10 changed files with 159 additions and 162 deletions
--- a/src/compiler/GF/Grammar/Printer.hs
+++ b/src/compiler/GF/Grammar/Printer.hs
@@ -9,7 +9,6 @@

 module GF.Grammar.Printer
           ( TermPrintQual(..)
-           , ppIdent
           , ppLabel
           , ppModule
           , ppJudgement
@@ -256,8 +255,6 @@ ppDDecl q (_,id,typ)
  | id == identW = ppTerm q 6 typ
  | otherwise    = parens (ppIdent id <+> colon <+> ppTerm q 0 typ)

-ppIdent = text . showIdent
-
 ppQIdent q m id =
  case q of
    Qualified   -> ppIdent m <> char '.' <> ppIdent id