From b9b02171601f68a8896ad2f369c700e356c8615b Mon Sep 17 00:00:00 2001
From: "John J. Camilleri" <john@digitalgrammars.com>
Date: Wed, 4 Jul 2018 13:40:46 +0200
Subject: Remove code which tries to get version information from darcs folder

---
 src/compiler/GF/Infra/BuildInfo.hs | 16 ----------------
 1 file changed, 16 deletions(-)

(limited to 'src')

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)
-- 
cgit v1.2.3