[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / compiler / abstractSyn / HsTypes.hi

diff --git a/ghc/compiler/abstractSyn/HsTypes.hi b/ghc/compiler/abstractSyn/HsTypes.hi
index 51cad26..115d9a1 100644 (file)
--- a/ghc/compiler/abstractSyn/HsTypes.hi
+++ b/ghc/compiler/abstractSyn/HsTypes.hi
@@ -15,19 +15,11 @@ type RenamedContext = [(Name, Name)]
 type RenamedMonoType = MonoType Name
 type RenamedPolyType = PolyType Name
 cmpList :: (a -> a -> Int#) -> [a] -> [a] -> Int#
-       {-# GHC_PRAGMA _A_ 3 _U_ 211 _N_ _S_ "LSS" _N_ _N_ #-}
 cmpMonoType :: (a -> a -> Int#) -> MonoType a -> MonoType a -> Int#
-       {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _S_ "LSS" _N_ _N_ #-}
 cmpPolyType :: (a -> a -> Int#) -> PolyType a -> PolyType a -> Int#
-       {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _S_ "LSS" _N_ _N_ #-}
 eqMonoType :: MonoType ProtoName -> MonoType ProtoName -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
 pprContext :: Outputable a => PprStyle -> [(a, a)] -> Int -> Bool -> PrettyRep
-       {-# GHC_PRAGMA _A_ 3 _U_ 22122 _N_ _S_ "LLS" _N_ _N_ #-}
 pprParendMonoType :: Outputable a => PprStyle -> MonoType a -> Int -> Bool -> PrettyRep
-       {-# GHC_PRAGMA _A_ 1 _U_ 22122 _N_ _N_ _N_ _N_ #-}
 instance Outputable a => Outputable (MonoType a)
-       {-# GHC_PRAGMA _M_ HsTypes {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
 instance Outputable a => Outputable (PolyType a)
-       {-# GHC_PRAGMA _M_ HsTypes {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}