Skip to content
Snippets Groups Projects
Commit cb6085ec authored by Simon Marlow's avatar Simon Marlow
Browse files

[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 :-)
parent 6d32951e
No related merge requests found
...@@ -76,9 +76,9 @@ doIt :: ([CoreToDo], [StgToDo]) -> IO () ...@@ -76,9 +76,9 @@ doIt :: ([CoreToDo], [StgToDo]) -> IO ()
doIt (core_cmds, stg_cmds) doIt (core_cmds, stg_cmds)
= doIfSet opt_Verbose = doIfSet opt_Verbose
(hPutStr stderr ("Glasgow Haskell Compiler, version " ++ (hPutStr stderr ("Glasgow Haskell Compiler, version\
show PROJECTVERSION ++ \ PROJECTVERSION\
", for Haskell 1.4\n")) >> \, for Haskell 1.4\n")) >>
-- ******* READER -- ******* READER
show_pass "Reader" >> show_pass "Reader" >>
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment