X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypes%2FTyLoop.lhi;h=267140fd1b360bd49ebbbdc75ebd5eb7e71a77cd;hb=1fb1ab5d53a09607e7f6d2450806760688396387;hp=1086dec90e184ae590ed49fa39b30f21bec16430;hpb=7a3bd641457666e10d0a47be9f22762e03defbf0;p=ghc-hetmet.git

diff --git a/ghc/compiler/types/TyLoop.lhi b/ghc/compiler/types/TyLoop.lhi
index 1086dec..267140f 100644
--- a/ghc/compiler/types/TyLoop.lhi
+++ b/ghc/compiler/types/TyLoop.lhi
@@ -3,7 +3,8 @@ Breaks the TyCon/types loop and the types/Id loop.
 \begin{code}
 interface TyLoop where
 
-import PreludePS(_PackedString)
+--import PreludePS(_PackedString)
+import FastString (FastString)
 import PreludeStdIO ( Maybe )
 import Unique ( Unique )
 
@@ -34,7 +35,7 @@ type Id	   = GenId (GenType (GenTyVar (GenUsage Unique)) Unique)
 -- Needed in TyCon
 tupleCon :: Int -> Id
 isNullaryDataCon :: Id -> Bool
-specMaybeTysSuffix :: [Maybe Type] -> _PackedString
+specMaybeTysSuffix :: [Maybe Type] -> FastString
 idType :: Id -> Type
 splitSigmaTy :: GenType t u -> ([t], [(Class,GenType t u)], GenType t u)
 splitFunTy   :: GenType t u -> ([GenType t u], GenType t u)