bugfix in the overload resolution. It was accidentally introduced as part of the per module PMCFG generation

This commit is contained in:
kr.angelov
2011-11-17 21:36:45 +00:00
parent d84cb09e48
commit 4f95b5656b

View File

@@ -194,7 +194,7 @@ checkInfo ms (m,mo) c info = do
mt <- case (mty,mt) of
(Just (cat,cont,val),Just (L loc trm)) ->
chIn loc "linearization of" $ do
(trm,_) <- checkLType gr [] trm (mkProd cont val [])
(trm,_) <- checkLType gr [] trm (mkFunType (map (\(_,_,ty) -> ty) cont) val) -- erases arg vars
return (Just (L loc trm))
_ -> return mt
mpr <- case mpr of