summaryrefslogtreecommitdiff
path: root/src-3.0/GF/Compile/Extend.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src-3.0/GF/Compile/Extend.hs')
-rw-r--r--src-3.0/GF/Compile/Extend.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src-3.0/GF/Compile/Extend.hs b/src-3.0/GF/Compile/Extend.hs
index 0dcde340a..8344a1696 100644
--- a/src-3.0/GF/Compile/Extend.hs
+++ b/src-3.0/GF/Compile/Extend.hs
@@ -94,6 +94,8 @@ extendAnyInfo isc n o i j =
liftM ResParam $ updn isc n mt1 mt2
(ResValue mt1, ResValue mt2) ->
liftM ResValue $ updn isc n mt1 mt2
+ (_, ResOverload ms t) | elem n ms ->
+ return $ ResOverload ms t
(ResOper mt1 m1, ResOper mt2 m2) -> ---- extendResOper n mt1 m1 mt2 m2
liftM2 ResOper (updn isc n mt1 mt2) (updn isc n m1 m2)
(CncCat mc1 mf1 mp1, CncCat mc2 mf2 mp2) ->