gfcm header

This commit is contained in:
aarne
2004-09-14 17:05:46 +00:00
parent 25f95fcfc3
commit 6c372cc599
27 changed files with 1350 additions and 883 deletions

View File

@@ -7,7 +7,8 @@ import Ident --H
-- newtype Ident = Ident String deriving (Eq,Ord,Show) --H
data Canon =
Gr [Module]
MGr [Ident] Ident [Module]
| Gr [Module]
deriving (Eq,Ord,Show)
data Module =
@@ -27,8 +28,8 @@ data Extend =
deriving (Eq,Ord,Show)
data Open =
NoOpens
| Opens [Ident]
Opens [Ident]
| NoOpens
deriving (Eq,Ord,Show)
data Flag =