From 2ee936c7e23bd690b05b8362179911a2d176f150 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 9 Oct 2003 15:23:32 +0000
Subject: Added treatment of transfer modules. Aggregation is an example.

---
 src/GF/Canon/AbsGFC.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/GF/Canon/AbsGFC.hs')

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
-- 
cgit v1.2.3