diff options
| author | aarne <unknown> | 2003-10-09 15:23:32 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-10-09 15:23:32 +0000 |
| commit | 2ee936c7e23bd690b05b8362179911a2d176f150 (patch) | |
| tree | 00e54d208f21b4f0278aab96ae551ecd6cae4abc /src/GF/Canon/AbsGFC.hs | |
| parent | ddd103ccd7422c35b5af0bcb5bad5edd49b080bb (diff) | |
Added treatment of transfer modules. Aggregation is an example.
Diffstat (limited to 'src/GF/Canon/AbsGFC.hs')
| -rw-r--r-- | src/GF/Canon/AbsGFC.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/GF/Canon/AbsGFC.hs b/src/GF/Canon/AbsGFC.hs index 56adb3b4e..a95dbce0f 100644 --- a/src/GF/Canon/AbsGFC.hs +++ b/src/GF/Canon/AbsGFC.hs @@ -5,6 +5,7 @@ import Ident --H -- Haskell module generated by the BNF converter, except --H -- newtype Ident = Ident String deriving (Eq,Ord,Show) --H + data Canon = Gr [Module] deriving (Eq,Ord,Show) @@ -17,6 +18,7 @@ data ModType = MTAbs Ident | MTCnc Ident Ident | MTRes Ident + | MTTrans Ident Ident Ident deriving (Eq,Ord,Show) data Extend = @@ -36,6 +38,7 @@ data Flag = data Def = AbsDCat Ident [Decl] [CIdent] | AbsDFun Ident Exp Exp + | AbsDTrans Ident Exp | ResDPar Ident [ParDef] | ResDOper Ident CType Term | CncDCat Ident CType Term Term |