module Pretty (prettyShow) where
+
import qualified Data.Map as Map
import qualified Data.Foldable as Foldable
import qualified List
-import qualified Var
import qualified CoreSyn
-import qualified TypeRep
import qualified Module
import qualified HscTypes
import Text.PrettyPrint.HughesPJClass
import FlattenTypes
import TranslatorTypes
import VHDLTypes
+import CoreShow
-- | A version of the default pPrintList method, which uses a custom function
-- f instead of pPrint to print elements.
pparch (Just _) = text "VHDL architecture present"
instance Pretty Entity where
- pPrint (Entity id args res decl) =
+ pPrint (Entity id args res decl pkg) =
text "Entity: " $$ nest 10 (pPrint id)
$+$ text "Args: " $$ nest 10 (pPrint args)
$+$ text "Result: " $$ nest 10 (pPrint res)
$+$ ppdecl decl
+ $+$ pppkg pkg
where
ppdecl Nothing = text "VHDL entity not present"
ppdecl (Just _) = text "VHDL entity present"
+ pppkg Nothing = text "VHDL package not present"
+ pppkg (Just _) = text "VHDL package present"
instance (OutputableBndr b, Show b) => Pretty (CoreSyn.Bind b) where
pPrint (CoreSyn.NonRec b expr) =
where
b' = show b
expr' = show expr
-
--- Derive Show for core expressions and binders, so we can see the actual
--- structure.
-deriving instance (Show b) => Show (CoreSyn.Expr b)
-deriving instance (Show b) => Show (CoreSyn.Bind b)
-
--- Implement dummy shows for Note and Type, so we can at least use show on
--- expressions.
-instance Show CoreSyn.Note where
- show n = "<note>"
-instance Show TypeRep.Type where
- show t = "_type:(" ++ (showSDoc $ ppr t) ++ ")"