diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/compiler/GF/Infra/BuildInfo.hs | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/src/compiler/GF/Infra/BuildInfo.hs b/src/compiler/GF/Infra/BuildInfo.hs index 9cf111831..f0230246b 100644 --- a/src/compiler/GF/Infra/BuildInfo.hs +++ b/src/compiler/GF/Infra/BuildInfo.hs @@ -2,11 +2,9 @@ module GF.Infra.BuildInfo where import System.Info import Data.Version(showVersion) -import DarcsVersion_gf {-# NOINLINE buildInfo #-} buildInfo = - {-details++"\n"++-} "Built on "++os++"/"++arch ++" with "++compilerName++"-"++showVersion compilerVersion ++", flags:" @@ -22,17 +20,3 @@ buildInfo = #ifdef C_RUNTIME ++" c-runtime" #endif - where - details = either (const no_info) info darcs_info - no_info = "No detailed version info available" - info (otag,olast,changes,whatsnew) = - (case changes of - 0 -> "No recorded changes" - 1 -> "One recorded change" - _ -> show changes++" recorded changes")++ - (case whatsnew of - 0 -> "" - 1 -> " + one file with unrecorded changes" - _ -> " + "++show whatsnew++" files with unrecorded changes")++ - (maybe "" (" since "++) otag)++ - (maybe "" ("\nLast recorded change: "++) olast) |