gfcm header

This commit is contained in:
aarne
2004-09-14 17:05:46 +00:00
parent 35f884ddfd
commit fe045070cf
26 changed files with 1348 additions and 883 deletions

View File

@@ -16,6 +16,7 @@ transIdent x = case x of
transCanon :: Canon -> Result
transCanon x = case x of
MGr ids id modules -> failure x
Gr modules -> failure x
@@ -40,8 +41,8 @@ transExtend x = case x of
transOpen :: Open -> Result
transOpen x = case x of
NoOpens -> failure x
Opens ids -> failure x
NoOpens -> failure x
transFlag :: Flag -> Result