From: sof <unknown>
Date: Mon, 26 May 1997 04:57:53 +0000 (+0000)
Subject: [project @ 1997-05-26 04:57:53 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~476
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=899fc3eb70b6c81165861197a566aedb77c0e21c;p=ghc-hetmet.git

[project @ 1997-05-26 04:57:53 by sof]
PprStyle interface folded into Outputable
---

diff --git a/ghc/compiler/utils/PprStyle.lhs b/ghc/compiler/utils/PprStyle.lhs
deleted file mode 100644
index 9f40605..0000000
--- a/ghc/compiler/utils/PprStyle.lhs
+++ /dev/null
@@ -1,60 +0,0 @@
-%
-% (c) The AQUA Project, Glasgow University, 1996
-%
-\section[PprStyle]{Pretty-printing `styles'}
-
-\begin{code}
-#include "HsVersions.h"
-
-module PprStyle (
-	PprStyle(..),
-	codeStyle, ifaceStyle, userStyle
-    ) where
-
-CHK_Ubiq() -- debugging consistency check
-
-import FastString
-
-data PprStyle
-  = PprForUser	 		-- Pretty-print in a way that will
-				-- make sense to the ordinary user;
-				-- must be very close to Haskell
-				-- syntax, etc.
-  | PprQuote			-- Like PprForUser, but also quote the whole thing
-
-  | PprDebug			-- Standard debugging output
-  | PprShowAll			-- Debugging output which leaves
-				-- nothing to the imagination
-
-  | PprInterface		-- Interface generation
-
-  | PprForC			-- must print out C-acceptable names
-
-  | PprForAsm			-- must print out assembler-acceptable names
-	Bool	        	-- prefix CLabel with underscore?
-	(String -> String)    	-- format AsmTempLabel
-
-\end{code}
-
-Orthogonal to the above printing styles are (possibly) some
-command-line flags that affect printing (often carried with the
-style).  The most likely ones are variations on how much type info is
-shown.
-
-The following test decides whether or not we are actually generating
-code (either C or assembly), or generating interface files.
-\begin{code}
-codeStyle :: PprStyle -> Bool
-codeStyle PprForC	  = True
-codeStyle (PprForAsm _ _) = True
-codeStyle _		  = False
-
-ifaceStyle :: PprStyle -> Bool
-ifaceStyle PprInterface	  = True
-ifaceStyle other	  = False
-
-userStyle ::  PprStyle -> Bool
-userStyle PprQuote   = True
-userStyle PprForUser = True
-userStyle other      = False
-\end{code}