X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fhbc%2FPretty_mt.hi;fp=ghc%2Flib%2Fhbc%2FPretty_mt.hi;h=0000000000000000000000000000000000000000;hb=4860241b9fe5daa328fbfabfa87c4af84ac49b65;hp=9f165c46d4ff7e60b423ae51720d918d96076913;hpb=c6c43e43be1f913cd90cb7cb5bb87e90e6552691;p=ghc-hetmet.git

diff --git a/ghc/lib/hbc/Pretty_mt.hi b/ghc/lib/hbc/Pretty_mt.hi
deleted file mode 100644
index 9f165c4..0000000
--- a/ghc/lib/hbc/Pretty_mt.hi
+++ /dev/null
@@ -1,21 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Pretty where
-infixr 8 ^.
-infixr 8 ~.
-type Context = (Bool, Int, Int, Int)
-type IText = (Bool, Int, Int, Int) -> [[Char]]
-(^.) :: ((Bool, Int, Int, Int) -> [[Char]]) -> ((Bool, Int, Int, Int) -> [[Char]]) -> (Bool, Int, Int, Int) -> [[Char]]
-	{-# GHC_PRAGMA _A_ 3 _U_ 111 _N_ _S_ "SLU(ALLL)" {_A_ 5 _U_ 11222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-cseparate :: [(Bool, Int, Int, Int) -> [[Char]]] -> (Bool, Int, Int, Int) -> [[Char]]
-	{-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-nest :: Int -> ((Bool, Int, Int, Int) -> [[Char]]) -> (Bool, Int, Int, Int) -> [[Char]]
-	{-# GHC_PRAGMA _A_ 3 _U_ 212 _N_ _S_ "LSU(ELLL)" _N_ _N_ #-}
-pretty :: Int -> Int -> ((Bool, Int, Int, Int) -> [[Char]]) -> [Char]
-	{-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _S_ "LLS" _N_ _N_ #-}
-separate :: [(Bool, Int, Int, Int) -> [[Char]]] -> (Bool, Int, Int, Int) -> [[Char]]
-	{-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-text :: [Char] -> (Bool, Int, Int, Int) -> [[Char]]
-	{-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LU(AAAA)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _F_ _IF_ARGS_ 0 2 XC 6 \ (u0 :: [Char]) (u1 :: (Bool, Int, Int, Int)) -> case u1 of { _ALG_ _TUP_4 (u2 :: Bool) (u3 :: Int) (u4 :: Int) (u5 :: Int) -> let {(u6 :: [[Char]]) = _!_ _NIL_ [[Char]] []} in _!_ (:) [[Char]] [u0, u6]; _NO_DEFLT_ } _N_ #-}
-(~.) :: ((Bool, Int, Int, Int) -> [[Char]]) -> ((Bool, Int, Int, Int) -> [[Char]]) -> (Bool, Int, Int, Int) -> [[Char]]
-	{-# GHC_PRAGMA _A_ 3 _U_ 111 _N_ _S_ "SLU(ALLL)" {_A_ 5 _U_ 11222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-