diff options
| author | aarne <unknown> | 2004-09-14 17:05:46 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-09-14 17:05:46 +0000 |
| commit | fe045070cf4333cee0e634db5c877493d1b16030 (patch) | |
| tree | 285273eb564dbd3ad510a183a1c701ec02a1b57a /src/GF/Canon/AbsGFC.hs | |
| parent | 35f884ddfd984edb7d580cd54c6f2f1ad9358a34 (diff) | |
gfcm header
Diffstat (limited to 'src/GF/Canon/AbsGFC.hs')
| -rw-r--r-- | src/GF/Canon/AbsGFC.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/GF/Canon/AbsGFC.hs b/src/GF/Canon/AbsGFC.hs index a95dbce0f..da8ea3804 100644 --- a/src/GF/Canon/AbsGFC.hs +++ b/src/GF/Canon/AbsGFC.hs @@ -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 = |