X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2Frename%2FRnSource.hi-boot-5;h=1ec4d52522c6ac3676382fbbbaadaca0e5928b97;hb=3674a5cc2879ef276785c1b19af7c6f6bdee1488;hp=d9af80796b37e6582e91d804493f5b16e18a144f;hpb=8c1b6bd7ffb9ce97da7a72f9e102998df19b23a2;p=ghc-hetmet.git diff --git a/ghc/compiler/rename/RnSource.hi-boot-5 b/ghc/compiler/rename/RnSource.hi-boot-5 index d9af807..1ec4d52 100644 --- a/ghc/compiler/rename/RnSource.hi-boot-5 +++ b/ghc/compiler/rename/RnSource.hi-boot-5 @@ -1,15 +1,13 @@ __interface RnSource 1 0 where __export RnSource rnBindsAndThen rnBinds rnSrcDecls; -1 rnBindsAndThen :: __forall [b] => RdrHsSyn.RdrNameHsBinds - -> (RnHsSyn.RenamedHsBinds +1 rnBindsAndThen :: __forall [b] => [HsBinds.HsBindGroup RdrName.RdrName] + -> ([HsBinds.HsBindGroup Name.Name] -> TcRnTypes.RnM (b, NameSet.FreeVars)) -> TcRnTypes.RnM (b, NameSet.FreeVars) ; -1 rnBinds :: RdrHsSyn.RdrNameHsBinds - -> TcRnTypes.RnM (RnHsSyn.RenamedHsBinds, NameSet.FreeVars) ; +1 rnBinds :: [HsBinds.HsBindGroup RdrName.RdrName] + -> TcRnTypes.RnM ([HsBinds.HsBindGroup Name.Name], NameSet.DefUses) ; 1 rnSrcDecls :: HsDecls.HsGroup RdrName.RdrName - -> TcRnTypes.RnM (TcRnTypes.TcGblEnv, HsDecls.HsGroup Name.Name, NameSet.FreeVars) ; - - + -> TcRnTypes.RnM (TcRnTypes.TcGblEnv, HsDecls.HsGroup Name.Name)