From: simonmar <unknown>
Date: Wed, 14 Apr 2004 09:01:18 +0000 (+0000)
Subject: [project @ 2004-04-14 09:01:18 by simonmar]
X-Git-Tag: nhc98-1-18-release~329
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7168d2c6cf32b29fd6112f5ba666212712e5aa83;hp=936686aad91d4b78a43a3cd8db52cc591280ff96;p=ghc-base.git

[project @ 2004-04-14 09:01:18 by simonmar]
indent: don't use tab characters
---

diff --git a/Text/PrettyPrint/HughesPJ.hs b/Text/PrettyPrint/HughesPJ.hs
index 7e1efe2..a18fc32 100644
--- a/Text/PrettyPrint/HughesPJ.hs
+++ b/Text/PrettyPrint/HughesPJ.hs
@@ -876,8 +876,10 @@ easy_display nl_text txt end doc
     lay (NilAbove p)        no_doc = nl_text `txt` lay p cant_fail      -- NoDoc always on first line
     lay (TextBeside s sl p) no_doc = s `txt` lay p no_doc
 
-indent n | n >= 8 = '\t' : indent (n - 8)
-         | otherwise      = spaces n
+-- OLD version: we shouldn't rely on tabs being 8 columns apart in the output.
+-- indent n | n >= 8 = '\t' : indent (n - 8)
+--          | otherwise      = spaces n
+indent n = spaces n
 
 multi_ch 0 ch = ""
 multi_ch n       ch = ch : multi_ch (n - 1) ch