From 8d98fec81eb0bc54cbc8b210c4045a52a0c09d79 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 3 Jun 2008 09:21:24 +0000
Subject: overload extension: syntax overload OldModule* {def*}

---
 src-3.0/GF/Source/GrammarToSource.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src-3.0/GF/Source/GrammarToSource.hs')

diff --git a/src-3.0/GF/Source/GrammarToSource.hs b/src-3.0/GF/Source/GrammarToSource.hs
index e00edc689..f76fe6cee 100644
--- a/src-3.0/GF/Source/GrammarToSource.hs
+++ b/src-3.0/GF/Source/GrammarToSource.hs
@@ -100,7 +100,7 @@ trAnyDef (i,info) = let i' = tri i in case info of
     [P.DefOper [P.DDef [mkName i'] (
       foldl P.EApp 
         (P.EIdent $ tri $ cOverload)
-          (map trt os ++ 
+          (map (P.EIdent . tri) os ++ 
            [P.ERecord [P.LDFull [i'] (trt ty) (trt fu) | (ty,fu) <- tysts]]))]]
 
   CncCat (Yes ty) Nope _ -> 
-- 
cgit v1.2.3