From fe045070cf4333cee0e634db5c877493d1b16030 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 14 Sep 2004 17:05:46 +0000 Subject: gfcm header --- src/GF/Canon/AbsGFC.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/GF/Canon/AbsGFC.hs') 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 = -- cgit v1.2.3