summary refs log tree commit diff
path: root/gnu/packages/commencement.scm
diff options
context:
space:
mode:
authorJan Nieuwenhuizen <janneke@gnu.org>2018-12-14 19:21:59 +0100
committerJan Nieuwenhuizen <janneke@gnu.org>2018-12-16 22:49:11 +0100
commitef809e3ac036eccc5f9c9edd8fb661d14ae15f2f (patch)
tree604dc16ee0336d4ec8433dd3f3fc52c9a4883e6b /gnu/packages/commencement.scm
parent20dd94b82fc60918d9fdabb609e30ed4414aba95 (diff)
downloadguix-ef809e3ac036eccc5f9c9edd8fb661d14ae15f2f.tar.gz
bootstrap: Add mes-boot0; decouple mes-boot from Mes.
* gnu/packages/commencement.scm (mes-boot0): New variable.
(mes-boot): Use it.
Diffstat (limited to 'gnu/packages/commencement.scm')
-rw-r--r--gnu/packages/commencement.scm25
1 files changed, 25 insertions, 0 deletions
diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index 108db5a75d..babad13e5f 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -81,11 +81,36 @@
 ;;;
 ;;; Code:
 
+(define mes-boot0
+  (let ((version "0.18")
+        (revision "1")
+        (commit "a155a0a9a2d941b15c1b98e5cce787de40a8dacd"))
+    (package
+      (inherit mes)
+      (name "mes-boot0")
+      (version (if commit (string-append version "-" revision "." (string-take commit 7))
+                   version))
+      (source (if commit
+                  (origin
+                (method url-fetch)
+                (uri (string-append
+                      "https://git.savannah.gnu.org/cgit/mes.git/snapshot/"
+                      "mes" "-" commit
+                      ".tar.gz"))
+                (sha256
+                 (base32
+                  "14siwfwg0zlf1pa4ah8s08gsxqcazhydbwa9qvybb0knxs27aicn")))
+                  (package-source mes)))
+      (native-inputs '())
+      (propagated-inputs '()))))
+
 (define mes-boot
   (package-with-bootstrap-guile
    (package
      (inherit mes)
      (name "mes-boot")
+     (version (package-version mes-boot0))
+     (source (package-source mes-boot0))
      (inputs '())
      (propagated-inputs '())
      (native-inputs