[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 (file)
--- 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" >>