msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

introducing multiple inheritance

Browse Source
This commit is contained in:
aarne
2004-09-15 14:36:27 +00:00
parent 9bc8ffe4d1
commit e6fd325d07
44 changed files with 214 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Canon/PrintGFC.hs
View File

@@ -117,7 +117,7 @@ instance Print ModType where
instance Print Extend where
prt i e = case e of
Ext id -> prPrec i 0 (concatD [prt 0 id , doc (showString "**")])
Ext ids -> prPrec i 0 (concatD [prt 0 ids , doc (showString "**")])
NoExt -> prPrec i 0 (concatD [])