-module Pretty (prettyShow, pprString) where
+module Pretty (prettyShow, pprString, pprStringDebug) where
import qualified Data.Map as Map
import qualified Module
import qualified HscTypes
import Text.PrettyPrint.HughesPJClass
-import Outputable ( showSDoc, ppr, Outputable, OutputableBndr)
+import Outputable ( showSDoc, showSDocDebug, ppr, Outputable, OutputableBndr)
import qualified ForSyDe.Backend.Ppr
import qualified ForSyDe.Backend.VHDL.Ppr
instance Pretty AST.VHDLId where
pPrint id = ForSyDe.Backend.Ppr.ppr id
+
+instance Pretty AST.VHDLName where
+ pPrint name = ForSyDe.Backend.Ppr.ppr name
prettyBind :: (Show b, Show e) => (b, e) -> Doc
prettyBind (b, expr) =
-- Convenience method for turning an Outputable into a string
pprString :: (Outputable x) => x -> String
pprString = showSDoc . ppr
+
+pprStringDebug :: (Outputable x) => x -> String
+pprStringDebug = showSDocDebug . ppr