Changeset 11224 for trunk/CspCASL/Print_CspCASL.hs
- Timestamp:
- 07.01.2009 10:50:34 (11 months ago)
- Files:
-
- 1 modified
-
trunk/CspCASL/Print_CspCASL.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/CspCASL/Print_CspCASL.hs
r11215 r11224 152 152 instance Pretty CommType where 153 153 pretty (CommTypeSort s) = pretty s 154 pretty (CommTypeChan (TypedChanName c s)) = p arens (sepByCommas [pretty c, pretty s])154 pretty (CommTypeChan (TypedChanName c s)) = pretty c -- BUG ? - this is the old version : parens (sepByCommas [pretty c, pretty s]) 155 155 156 156