From: simonm <unknown>
Date: Mon, 8 Dec 1997 10:06:34 +0000 (+0000)
Subject: [project @ 1997-12-08 10:06:34 by simonm]
X-Git-Tag: Approx_2487_patches~1188
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cb6085ec18ece0ad37cebb3cd9ac22ee65b59c29;p=ghc-hetmet.git

[project @ 1997-12-08 10:06:34 by simonm]
Treat $(PROJECTVERSION) as a string, not a floating point number, to
avoid rounding errors.

Fool cpp into substituting for PROJECTVERSION within a string by using
string gaps, not forgetting the space after the '\' at the end of the
line to fool cpp into leaving the '\' behind :-)
---

diff --git a/ghc/compiler/main/Main.lhs b/ghc/compiler/main/Main.lhs
index 239ccb8..a1eb377 100644
--- a/ghc/compiler/main/Main.lhs
+++ b/ghc/compiler/main/Main.lhs
@@ -76,9 +76,9 @@ doIt :: ([CoreToDo], [StgToDo]) -> IO ()
 
 doIt (core_cmds, stg_cmds)
   = doIfSet opt_Verbose 
-	(hPutStr stderr ("Glasgow Haskell Compiler, version " ++ 
-			 show PROJECTVERSION ++ 
-			 ", for Haskell 1.4\n"))		>>
+	(hPutStr stderr ("Glasgow Haskell Compiler, version\ 
+			 \ PROJECTVERSION\ 
+			 \, for Haskell 1.4\n"))		>>
 
     -- ******* READER
     show_pass "Reader"	>>