X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FParser.y.pp;h=da16bff272a7666e5af63f51d06ab497ba0c09ad;hp=a750397ea3716d0106bf4c6a00427958b62e8b37;hb=61d2625ae2e6a4cdae2ffc92df828905e81c24cc;hpb=b93eb0c23bed01905e86c0a8c485edb388626761

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index a750397..da16bff 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -394,7 +394,7 @@ optqualified :: { Bool }
       	: 'qualified'                           { True  }
       	| {- empty -}				{ False }
 
-maybeas :: { Located (Maybe Module) }
+maybeas :: { Located (Maybe ModuleName) }
       	: 'as' modid                            { LL (Just (unLoc $2)) }
       	| {- empty -}				{ noLoc Nothing }
 
@@ -1545,10 +1545,10 @@ close :: { () }
 -----------------------------------------------------------------------------
 -- Miscellaneous (mostly renamings)
 
-modid 	:: { Located Module }
-	: CONID			{ L1 $ mkModuleFS (getCONID $1) }
+modid 	:: { Located ModuleName }
+	: CONID			{ L1 $ mkModuleNameFS (getCONID $1) }
         | QCONID		{ L1 $ let (mod,c) = getQCONID $1 in
-				  mkModuleFS
+				  mkModuleNameFS
 				   (mkFastString
 				     (unpackFS mod ++ '.':unpackFS c))
 				}