Plain source file: base/defs/ReAssocModule.hs (2002-10-22)

ReAssocModule is imported by: PFE3.

module ReAssocModule where
import ReAssoc(reAssoc')
import WorkModule
import QualNames
import Ents
import TypedIds(namespace,NameSpace(..))

import Lift
import MUtils

reAssocModule wm origOps mod = reAssoc' opEnv mod
    opEnv = [(q,fixity)|qn<-inScopeDom wm,
			Ent m n t <-inScope wm qn,
			namespace t==ValueNames,
			--m/=mn, -- only imported names
			let --un = mapHsIdent UnQual n
			    q = requal qn n,
			fixity<-lift (lookupOrig m n origOps)]

    lookupOrig m n = lookup n @@ lookup m

    requal qn n = case getQualifier qn of
                    Nothing -> mkUnqual n
                    Just m  -> mkQual m n


(HTML for this module was generated on 2006-08-12. About the conversion tool.)