X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnPat.lhs;h=e56a4ee0d5cb020ba48685edd5fa4829abc50c61;hp=0c0d68327b2bf3476629dd87e20cccc1d3fbd59f;hb=a27c5f77da8b3b3f00f9902b69a504460f234e8c;hpb=3e571a94c03015f2c38c8d2f0f6dfb91c8d4413c

diff --git a/compiler/rename/RnPat.lhs b/compiler/rename/RnPat.lhs
index 0c0d683..e56a4ee 100644
--- a/compiler/rename/RnPat.lhs
+++ b/compiler/rename/RnPat.lhs
@@ -50,7 +50,6 @@ import HsSyn
 import TcRnMonad
 import RnEnv
 import HscTypes         ( availNames )
-import RnNames		( getLocalDeclBinders, extendRdrEnvRn )
 import RnTypes		( rnHsTypeFVs, 
 			  mkOpFormRn, mkOpAppRn, mkNegAppRn, checkSectionPrec, mkConOpPatRn
 			   )
@@ -111,9 +110,7 @@ matchNameMaker
 	   ; return (res, fvs) }})
 			  
 topRecNameMaker, localRecNameMaker
-  :: UniqFM (Located Fixity) -- mini fixity env for the names we're about to bind
-                             -- these fixities need to be brought into scope with the names
-  -> NameMaker
+  :: MiniFixityEnv -> NameMaker
 
 -- topNameMaker and localBindMaker do not check for unused binding
 localRecNameMaker fix_env