X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnTypes.lhs;h=cc0f0f3b94868a98e4a049971ed7c3d397777044;hb=3a49601be4ed68d59ca9a81589e3cb627ae268d7;hp=227cce53569dd90f8cf6f704e163c0e18682bf74;hpb=d1854b8826400244bb6f3ca02d3614d34aa65c90;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnTypes.lhs b/ghc/compiler/rename/RnTypes.lhs
index 227cce5..cc0f0f3 100644
--- a/ghc/compiler/rename/RnTypes.lhs
+++ b/ghc/compiler/rename/RnTypes.lhs
@@ -5,8 +5,8 @@
 
 \begin{code}
 module RnTypes ( rnHsType, rnContext, 
-		 rnHsSigType, rnHsTypeFVs, rnHsSigTypeFVs, 
-		 rnPat, rnPats, rnPatsAndThen,	-- Here because it's not part 
+		 rnHsSigType, rnHsTypeFVs,
+		 rnPat, rnPatsAndThen,	-- Here because it's not part 
 		 rnOverLit, litFVs,		-- of any mutual recursion	
 		 precParseErr, sectionPrecErr, dupFieldErr, patSigErr, checkTupSize
   ) where
@@ -57,11 +57,6 @@ rnHsTypeFVs doc_str ty
   = rnHsType doc_str ty		`thenM` \ ty' ->
     returnM (ty', extractHsTyNames ty')
 
-rnHsSigTypeFVs :: SDoc -> RdrNameHsType -> RnM (RenamedHsType, FreeVars)
-rnHsSigTypeFVs doc_str ty
-  = rnHsSigType doc_str ty	`thenM` \ ty' ->
-    returnM (ty', extractHsTyNames ty')
-
 rnHsSigType :: SDoc -> RdrNameHsType -> RnM RenamedHsType
 	-- rnHsSigType is used for source-language type signatures,
 	-- which use *implicit* universal quantification.