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/Source/PrintGF.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Source/PrintGF.hs')

diff --git a/src/GF/Source/PrintGF.hs b/src/GF/Source/PrintGF.hs
index fbb5afafa..3024d49db 100644
--- a/src/GF/Source/PrintGF.hs
+++ b/src/GF/Source/PrintGF.hs
@@ -166,7 +166,7 @@ instance Print TopDef where
    DefFun fundefs -> prPrec i 0 (concat [["fun"] , prt 0 fundefs])
    DefDef defs -> prPrec i 0 (concat [["def"] , prt 0 defs])
    DefData datadefs -> prPrec i 0 (concat [["data"] , prt 0 datadefs])
-   DefTrans flagdefs -> prPrec i 0 (concat [["transfer"] , prt 0 flagdefs])
+   DefTrans defs -> prPrec i 0 (concat [["transfer"] , prt 0 defs])
    DefPar pardefs -> prPrec i 0 (concat [["param"] , prt 0 pardefs])
    DefOper defs -> prPrec i 0 (concat [["oper"] , prt 0 defs])
    DefLincat printdefs -> prPrec i 0 (concat [["lincat"] , prt 0 printdefs])
-- 
cgit v1.2.3