[add version string to output in '-v' mode
John Meacham <john@repetae.net>**20070228023506] hunk ./Main.hs 75
-import Version(versionString,versionContext)
+import Version(versionString,versionContext,versionSimple)
hunk ./Main.hs 109
-        return (simpleQuote (name:args))
+        return (simpleQuote (name:args) ++ "\n" ++ versionSimple)
hunk ./Main.hs 123
-        VersionCtx    -> putStrLn versionContext
+        VersionCtx    -> putStrLn (versionString ++ versionContext)
hunk ./Version.hs 3
+    versionSimple,
hunk ./Version.hs 14
+{-# NOINLINE versionSimple #-}
+versionSimple = concat ["jhc ", jhcVersion, " ", compileDate, " (", darcsTag, "+",darcsPatches, ")"]
+
hunk ./Version.hs 18
-versionString = concat ["jhc ", jhcVersion, " ", compileDate, " (", darcsTag, "+",darcsPatches, ")\n",
-                        "compiled by ",compilerName,"-",showVersion compilerVersion," on a ",arch," running ",os]
+versionString = concat [versionSimple, "\n", "compiled by ",compilerName,"-",showVersion compilerVersion," on a ",arch," running ",os]