X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fghc%2FPretty_mp.hi;h=da9e419a87dd27e01ebd08a04b7b04357564e94b;hb=c6c43e43be1f913cd90cb7cb5bb87e90e6552691;hp=f09119b7fe1ee6fa3ef47432ae8ca9bc2a06ae44;hpb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;p=ghc-hetmet.git

diff --git a/ghc/lib/ghc/Pretty_mp.hi b/ghc/lib/ghc/Pretty_mp.hi
index f09119b..da9e419 100644
--- a/ghc/lib/ghc/Pretty_mp.hi
+++ b/ghc/lib/ghc/Pretty_mp.hi
@@ -1,4 +1,4 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
+{-# GHC_PRAGMA INTERFACE VERSION 6 #-}
 interface Pretty where
 import CharSeq(CSeq)
 import PreludeRatio(Ratio(..))
@@ -7,7 +7,7 @@ data Delay a 	{-# GHC_PRAGMA MkDelay a #-}
 type Pretty = Int -> Bool -> PrettyRep
 data PrettyRep   = MkPrettyRep CSeq (Delay Int) Bool Bool
 pp'SP :: Int -> Bool -> PrettyRep
-	{-# GHC_PRAGMA _A_ 2 _U_ 10 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _APP_  _ORIG_ Pretty ppStr [ _NOREP_S_ ", " ] _N_ #-}
+	{-# GHC_PRAGMA _A_ 2 _U_ 10 _N_ _N_ _N_ _N_ #-}
 ppAbove :: (Int -> Bool -> PrettyRep) -> (Int -> Bool -> PrettyRep) -> Int -> Bool -> PrettyRep
 	{-# GHC_PRAGMA _A_ 4 _U_ 1120 _N_ _S_ "SLLA" {_A_ 3 _U_ 112 _N_ _N_ _N_ _N_} _N_ _N_ #-}
 ppAboves :: [Int -> Bool -> PrettyRep] -> Int -> Bool -> PrettyRep