Remove code which tries to get version information from darcs folder

This commit is contained in:
John J. Camilleri
2018-07-04 13:40:46 +02:00
parent f64b17eef7
commit b9b0217160
3 changed files with 0 additions and 51 deletions

View File

@@ -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)