X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FParseIface.y;fp=ghc%2Fcompiler%2Frename%2FParseIface.y;h=ac0a7a3e600860e0338d66ab44fd2ae29cc69c86;hb=32a895831dbc202fab780fdd8bee65be81e2d232;hp=6468bdc576c160110031e688bd1e89e06343446f;hpb=0fe14834f10717e06efca4cef07d0640a99ff0a7;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 6468bdc..ac0a7a3 100644
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -39,11 +39,10 @@ import HsCore
 import Literal		( Literal(..), mkMachInt, mkMachInt64, mkMachWord, mkMachWord64 )
 import BasicTypes	( Fixity(..), FixityDirection(..), StrictnessMark(..),
 			  NewOrData(..), Version, initialVersion, Boxity(..),
-                          Activation(..)
+                          Activation(..), IPName(..)
 			)
 import CostCentre       ( CostCentre(..), IsCafCC(..), IsDupdCC(..) )
 import Type		( Kind, mkArrowKind, liftedTypeKind, openTypeKind, usageTypeKind )
-import TypeRep          ( IPName(..) )
 import ForeignCall	( ForeignCall(..), CCallConv(..), CCallSpec(..), CCallTarget(..) )
 import Lex		
 
@@ -629,8 +628,8 @@ qvar_name	:  var_name		{ $1 }
 		|  QVARID	      	{ mkIfaceOrig varName $1 }
 
 ipvar_name	:: { IPName RdrName }
-	        : IPDUPVARID		{ Dupable   (mkRdrUnqual (mkSysOccFS varName $1)) }
-	        | IPSPLITVARID		{ MustSplit (mkRdrUnqual (mkSysOccFS varName $1)) }
+	        : IPDUPVARID		{ Dupable (mkRdrUnqual (mkSysOccFS varName $1)) }
+	        | IPSPLITVARID		{ Linear  (mkRdrUnqual (mkSysOccFS varName $1)) }
 
 qvar_names1	:: { [RdrName] }
 qvar_names1	: qvar_name		{ [$1] }