[project @ 2001-11-29 13:47:09 by simonpj]

[ghc-hetmet.git] / ghc / compiler / rename / ParseIface.y

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 6468bdc..ac0a7a3 100644 (file)
--- 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] }