overload extension: syntax overload OldModule* {def*}

2008-06-03 09:21:24 +00:00
parent 07c8a4383a
commit 04d8846c95
7 changed files with 16 additions and 11 deletions
--- a/src-3.0/GF/Compile/Rename.hs
+++ b/src-3.0/GF/Compile/Rename.hs
@@ -171,7 +171,7 @@ renameInfo mo status (i,info) = errIn

  ResOper pty ptr -> liftM2 ResOper (ren pty) (ren ptr)
  ResOverload os tysts -> 
-    liftM2 ResOverload (mapM rent os) (mapM (pairM rent) tysts)
+    liftM (ResOverload os) (mapM (pairM rent) tysts)

  ResParam (Yes (pp,m)) -> do
    pp' <- mapM (renameParam status) pp