From a1fe2ca61e15738220aee34618fa75792d802554 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sat, 26 Dec 2015 17:55:43 +0300
Subject: ldc: disable zoninfo in patch

---
 gn/packages/dlanguage.scm |  2 --
 ldc-disable-tests.patch   | 17 +++++++++++++++++
 2 files changed, 17 insertions(+), 2 deletions(-)

diff --git a/gn/packages/dlanguage.scm b/gn/packages/dlanguage.scm
index d2604dd..38ac8b0 100644
--- a/gn/packages/dlanguage.scm
+++ b/gn/packages/dlanguage.scm
@@ -81,8 +81,6 @@
        (substitute* "runtime/phobos/std/process.d"
                     (("/bin/sh") (which "sh"))
                     (("echo") (which "echo")))
-       (substitute* "runtime/phobos/std/process.d"
-                    (("/usr/share/zoneinfo/") ("")))
        #t))
     (add-after
      'unpack-dmd-testsuite-source 'patch-dmd-testsuite
diff --git a/ldc-disable-tests.patch b/ldc-disable-tests.patch
index 871089e..d88aa21 100644
--- a/ldc-disable-tests.patch
+++ b/ldc-disable-tests.patch
@@ -1,3 +1,20 @@
+diff --git a/std/datetime.d b/std/datetime.d
+index 8e4ed3b..d904a49 100644
+--- a/std/datetime.d
++++ b/std/datetime.d
+@@ -28018,7 +28018,11 @@ public:
+             The default directory where the TZ Database files are. It's empty
+             for Windows, since Windows doesn't have them.
+           +/
+-        enum defaultTZDatabaseDir = "/usr/share/zoneinfo/";
++          
++        pragma(msg, "test disabled on GNU Guix");
++
++        // enum defaultTZDatabaseDir = "/usr/share/zoneinfo/";
++        enum defaultTZDatabaseDir = "";
+     }
+     else version(Windows)
+     {
 diff --git a/std/path.d b/std/path.d
 index 254d8f0..b0fc04d 100644
 --- a/std/path.d
-- 
cgit v1.2.3