X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnMonad.lhs;h=5a215abfe930af7614a0d7ec6d9e2c1748a84d95;hb=0ef29fb878dd6517d2716afb056bcf2536c2562e;hp=2a795e54840b58c87c2ca77081b71fa28c57ff9c;hpb=fb2442c0498868330476f5fdde46339eab68e72d;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnMonad.lhs b/ghc/compiler/rename/RnMonad.lhs
index 2a795e5..5a215ab 100644
--- a/ghc/compiler/rename/RnMonad.lhs
+++ b/ghc/compiler/rename/RnMonad.lhs
@@ -166,8 +166,12 @@ data SDown = SDown {
 			-- with RnIfaces.lookupLocalFixity
 		}
 
-data RnMode	= SourceMode			-- Renaming source code
-		| InterfaceMode			-- Renaming interface declarations.  
+data RnMode	= SourceMode		-- Renaming source code
+		| InterfaceMode		-- Renaming interface declarations.  
+		| CmdLineMode		-- Renaming a command-line expression
+
+isInterfaceMode InterfaceMode = True
+isInterfaceMode _ = False
 \end{code}
 
 %===================================================