From 2c00e4a0a21d938137e8e7648b29c0b0f753d06d Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sat, 26 Dec 2015 20:02:28 +0300
Subject: ldc: fixed patch

---
 gn/packages/dlanguage.scm | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

(limited to 'gn')

diff --git a/gn/packages/dlanguage.scm b/gn/packages/dlanguage.scm
index 1aa71fd..dfcf8b0 100644
--- a/gn/packages/dlanguage.scm
+++ b/gn/packages/dlanguage.scm
@@ -78,23 +78,20 @@
 
     (add-after
      'unpack-phobos-source 'patch-phobos
-     (lambda _
+     (lambda* (#:key source inputs #:allow-other-keys)
        (substitute* "runtime/phobos/std/process.d"
                     (("/bin/sh") (which "sh"))
                     (("echo") (which "echo")))
        (substitute* "runtime/phobos/std/datetime.d"
-                    (("/usr/share/zoneinfo/")
-                     (string-append (assoc-ref inputs "tzdata")
-                                         "/share/zoneinfo")))
-       #t))
-
+                    (("/usr/share/zoneinfo/") (string-append (assoc-ref inputs "tzdata") "/share/zoneinfo")))
+       #t)) ;; add-after
 
     (add-after
      'unpack-dmd-testsuite-source 'patch-dmd-testsuite
      (lambda _
        (substitute* "tests/d2/dmd-testsuite/Makefile"
                     (("/bin/bash") (which "bash")))
-       #t))
+       #t)) ;; add-after
     
     ) ;; modify-phases
     )) ; arguments
@@ -102,7 +99,7 @@
     (inputs
      `( ("libconfig" ,libconfig)
         ("libedit" ,libedit)
-        ("tzdata" ,tzdata))  ;; for tests
+        ("tzdata" ,tzdata)))  ;; for tests
     (native-inputs
      `(("llvm" ,llvm)
        ("clang" ,clang)
-- 
cgit v1.2.3