From cb6085ec18ece0ad37cebb3cd9ac22ee65b59c29 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Mon, 8 Dec 1997 10:06:34 +0000
Subject: [PATCH] [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 :-)
---
ghc/compiler/main/Main.lhs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/ghc/compiler/main/Main.lhs b/ghc/compiler/main/Main.lhs
index 239ccb8207ec..a1eb377ffa7f 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" >>
--
GitLab