mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-22 19:22:50 -06:00
Remove code which tries to get version information from darcs folder
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user