-initPersistentRenamerState :: PersistentRenamerState
- = PRS { prsOrig = Orig { origNames = initOrigNames,
- origIParam = emptyFM },
- prsDecls = emptyNameEnv,
- prsInsts = emptyBag,
- prsRules = emptyBag
- }
+initPersistentRenamerState :: IO PersistentRenamerState
+ = do ns <- mkSplitUniqSupply 'r'
+ return (
+ PRS { prsOrig = Orig { origNames = initOrigNames,
+ origIParam = emptyFM },
+ prsDecls = emptyNameEnv,
+ prsInsts = emptyBag,
+ prsRules = emptyBag,
+ prsNS = ns
+ }
+ )