Changeset 10428 for trunk/CspCASL/Print_CspCASL.hs
- Timestamp:
- 01.08.2008 13:17:06 (16 months ago)
- Files:
-
- 1 modified
-
trunk/CspCASL/Print_CspCASL.hs (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/CspCASL/Print_CspCASL.hs
r10252 r10428 42 42 43 43 44 45 44 printChanDecs :: [CHANNEL_DECL] -> Doc 46 45 printChanDecs cds = (vcat . punctuate semi . map pretty) cds … … 52 51 printChanDecl (ChannelDecl ns s) = 53 52 (ppWithCommas ns) <+> colon <+> (pretty s) 54 55 53 56 54 … … 70 68 71 69 72 73 70 instance Pretty PARM_PROCNAME where 74 71 pretty = printParmProcname … … 85 82 printProcAlphabet :: PROC_ALPHABET -> Doc 86 83 printProcAlphabet (ProcAlphabet commTypes _) = ppWithCommas commTypes 87 88 84 89 85