X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Futils%2FOutputable.lhs;fp=ghc%2Fcompiler%2Futils%2FOutputable.lhs;h=dcfe8c2dbcf346f5ec327bd1bae13ac15cb16cd7;hb=98688c6e8fd33f31c51218cf93cbf03fe3a5e73d;hp=2ef0adffe3a0730931cdf135c9ee241240b1412f;hpb=79c93a8a30aaaa6bd940c0677d6f3c57eb727fa2;p=ghc-hetmet.git

diff --git a/ghc/compiler/utils/Outputable.lhs b/ghc/compiler/utils/Outputable.lhs
index 2ef0adf..dcfe8c2 100644
--- a/ghc/compiler/utils/Outputable.lhs
+++ b/ghc/compiler/utils/Outputable.lhs
@@ -26,7 +26,7 @@ module Outputable (
 	text, char, ftext, ptext,
 	int, integer, float, double, rational,
 	parens, brackets, braces, quotes, doubleQuotes, angleBrackets,
-	semi, comma, colon, dcolon, space, equals, dot,
+	semi, comma, colon, dcolon, space, equals, dot, arrow,
 	lparen, rparen, lbrack, rbrack, lbrace, rbrace, underscore,
 	(<>), (<+>), hcat, hsep, 
 	($$), ($+$), vcat, 
@@ -82,8 +82,6 @@ data PprStyle
 					-- must be very close to Haskell
 					-- syntax, etc.
 
-  | PprInterface PrintUnqualified	-- Interface generation
-
   | PprCode CodeStyle		-- Print code; either C or assembler
 
   | PprDebug			-- Standard debugging output
@@ -156,7 +154,6 @@ getPprStyle df sty = df sty sty
 \begin{code}
 unqualStyle :: PprStyle -> Name -> Bool
 unqualStyle (PprUser    unqual _) n = unqual n
-unqualStyle (PprInterface unqual) n = unqual n
 unqualStyle other		  n = False
 
 codeStyle :: PprStyle -> Bool
@@ -201,7 +198,7 @@ printDump doc = do
    better_doc = doc $$ text ""
     -- We used to always print in debug style, but I want
     -- to try the effect of a more user-ish style (unless you
-    -- say -dppr-debug
+    -- say -dppr-debug)
 
 printForUser :: Handle -> PrintUnqualified -> SDoc -> IO ()
 printForUser handle unqual doc 
@@ -282,6 +279,7 @@ rbrack sty = Pretty.rbrack
 lbrace sty = Pretty.lbrace
 rbrace sty = Pretty.rbrace
 dcolon sty = Pretty.ptext SLIT("::")
+arrow  sty = Pretty.ptext SLIT("->")
 underscore = char '_'
 dot	   = char '.'