X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FhsSyn%2FHsTypes.lhs;h=30890504bc24c0002a2f59c9385dd7f1639fc3fc;hb=d551dbfef0b710f5ede21ee0c54ee7e80dd53b64;hp=d92ca9e4d6cf68697fc073c9c266560f7e46f096;hpb=cb486104c9225bb44f5ccdd700ff204a37014207;p=ghc-hetmet.git

diff --git a/ghc/compiler/hsSyn/HsTypes.lhs b/ghc/compiler/hsSyn/HsTypes.lhs
index d92ca9e..3089050 100644
--- a/ghc/compiler/hsSyn/HsTypes.lhs
+++ b/ghc/compiler/hsSyn/HsTypes.lhs
@@ -22,9 +22,6 @@ module HsTypes (
 	-- Type place holder
 	PostTcType, placeHolderType,
 
-	-- Name place holder
-	SyntaxName, placeHolderName,
-
 	-- Printing
 	pprParendHsType, pprHsForAll, pprHsContext, ppr_hs_context, pprHsTyVarBndr
     ) where
@@ -36,11 +33,8 @@ import {-# SOURCE #-} HsExpr ( HsSplice, pprSplice )
 import Type		( Type )
 import Kind		( {- instance Outputable Kind -}, Kind,
 			  pprParendKind, pprKind, isLiftedTypeKind )
-import Name		( Name, mkInternalName )
-import OccName		( mkVarOcc )
 import BasicTypes	( IPName, Boxity, tupleParens )
-import PrelNames	( unboundKey )
-import SrcLoc		( noSrcLoc, Located(..), unLoc, noSrcSpan )
+import SrcLoc		( Located(..), unLoc, noSrcSpan )
 import StaticFlags	( opt_PprStyle_Debug )
 import Outputable
 \end{code}
@@ -60,18 +54,6 @@ type PostTcType = Type		-- Used for slots in the abstract syntax
 
 placeHolderType :: PostTcType	-- Used before typechecking
 placeHolderType  = panic "Evaluated the place holder for a PostTcType"
-
-
-type SyntaxName = Name		-- These names are filled in by the renamer
-				-- Before then they are a placeHolderName (so that
-				--	we can still print the HsSyn)
-				-- They correspond to "rebindable syntax";
-				-- See RnEnv.lookupSyntaxName
-
-placeHolderName :: SyntaxName
-placeHolderName = mkInternalName unboundKey 
-			(mkVarOcc FSLIT("syntaxPlaceHolder")) 
-			noSrcLoc
 \end{code}
 
 %************************************************************************