# dlang.patch -rw-r--r-- 5.4 KiB View raw
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
diff --git a/gnu/packages/dlang.scm b/gnu/packages/dlang.scm
index 2341f1769e..8960fc84c7 100644
--- a/gnu/packages/dlang.scm
+++ b/gnu/packages/dlang.scm
@@ -54,15 +54,15 @@ (define-public d-tools
   (package
     (name "d-tools")
     (version "2.100.0")
-    (source
-      (origin
-        (method git-fetch)
-        (uri (git-reference
-              (url "https://github.com/dlang/tools")
-              (commit (string-append "v" version))))
-        (file-name (git-file-name name version))
-        (sha256
-         (base32 "1jbn0hyskv4ykcckw0iganpyrm0bq2lggswspw21r4hgnxkmjbyw"))))
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/dlang/tools")
+                    (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "1jbn0hyskv4ykcckw0iganpyrm0bq2lggswspw21r4hgnxkmjbyw"))))
     (build-system gnu-build-system)
     (arguments
      (list #:phases
@@ -71,27 +71,29 @@ (define-public d-tools
                (replace 'build
                  (lambda _
                    (mkdir-p "bin")
-                   (setenv "CC" #$(cc-for-target))
-                   (setenv "LD" #$(ld-for-target))
+                   (setenv "CC"
+                           #$(cc-for-target))
+                   (setenv "LD"
+                           #$(ld-for-target))
                    (invoke "ldc2" "rdmd.d" "--of" "bin/rdmd")
                    (apply invoke "ldc2" "--of=bin/dustmite"
                           (find-files "DustMite" ".*\\.d"))))
                (replace 'check
                  (lambda* (#:key tests? #:allow-other-keys)
                    (when tests?
                      (invoke "bin/rdmd" "rdmd_test.d" "bin/rdmd"
                              "--rdmd-default-compiler" "ldmd2"))))
                (replace 'install
                  (lambda* (#:key outputs #:allow-other-keys)
-                   (let* ((out (assoc-ref outputs "out"))
-                          (bin (string-append out "/bin"))
+                   (let* ((out (assoc-ref outputs "out")) (bin (string-append
+                                                                out "/bin"))
                           (man (string-append out "/man")))
                      (copy-recursively "bin" bin)
                      (copy-recursively "man" man)))))))
-    (native-inputs
-     (list ldc
-           (module-ref (resolve-interface
-                        '(gnu packages commencement))
-                       'ld-gold-wrapper)))
+    (native-inputs (list ldc
+                         (module-ref (resolve-interface '(gnu packages
+                                                              commencement))
+                                     'ld-gold-wrapper)))
     (home-page "https://github.com/dlang/tools")
     (synopsis "Useful D-related tools")
     (description
@@ -437,38 +439,38 @@ (define-public dub
   (package
     (name "dub")
     (version "1.23.0")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://github.com/dlang/dub")
-             (commit (string-append "v" version))))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32 "06a4whsl1m600k096nwif83n7za3vr7pj1xwapncy5fcad1gmady"))))
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/dlang/dub")
+                    (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "06a4whsl1m600k096nwif83n7za3vr7pj1xwapncy5fcad1gmady"))))
     (build-system gnu-build-system)
     (arguments
      (list #:tests? #f ; Tests try to install various packages.
            #:phases
            #~(modify-phases %standard-phases
-               (delete 'configure) ; no configure script
+               (delete 'configure)
                (replace 'build
                  (lambda* (#:key native-inputs #:allow-other-keys)
-                   (setenv "CC" #$(cc-for-target))
-                   (setenv "LD" #$(ld-for-target))
+                   (setenv "CC"
+                           #$(cc-for-target))
+                   (setenv "LD"
+                           #$(ld-for-target))
                    (invoke "./build.d")))
                (replace 'install
                  (lambda* (#:key outputs #:allow-other-keys)
-                   (let* ((out (assoc-ref outputs "out"))
-                          (bin (string-append out "/bin")))
+                   (let* ((out (assoc-ref outputs "out")) (bin (string-append
+                                                                out "/bin")))
                      (install-file "bin/dub" bin)))))))
     (inputs (list curl))
-    (native-inputs
-     (list ldc
-           d-tools
-           (module-ref (resolve-interface
-                        '(gnu packages commencement))
-                       'ld-gold-wrapper)))
+    (native-inputs (list ldc d-tools
+                         (module-ref (resolve-interface '(gnu packages
+                                                              commencement))
+                                     'ld-gold-wrapper)))
     (home-page "https://code.dlang.org/getting_started")
     (synopsis "Package and build manager for D projects")
     (description