guix: Update build.
authorJan Nieuwenhuizen <janneke@gnu.org>
Thu, 20 Jul 2017 21:17:54 +0000 (23:17 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Wed, 26 Jul 2017 09:36:08 +0000 (11:36 +0200)
* guix.scm (mes): Do not strip.  Fixes mes binary.

guix.scm

index a5b2281c2ffadd7aa3cca2184bdbacd3236d155a..cb129c07d19dffd65e466e07057283aea7fd8351 100644 (file)
--- a/guix.scm
+++ b/guix.scm
@@ -113,7 +113,7 @@ hex2 linker.")
   (let ((commit "ec072e8625e72b89301ad1746d839c6529188b6f")
         (revision "0")
         (triplet "i686-unknown-linux-gnu")
   (let ((commit "ec072e8625e72b89301ad1746d839c6529188b6f")
         (revision "0")
         (triplet "i686-unknown-linux-gnu")
-        (version "0.7"))
+        (version "0.8"))
     (package
       (name "mes")
       (version (string-append version "-" revision "." (string-take commit 7)))
     (package
       (name "mes")
       (version (string-append version "-" revision "." (string-take commit 7)))
@@ -149,7 +149,8 @@ hex2 linker.")
                  (lambda ()
                    (display "Please run
     build-aux/gitlog-to-changelog --srcdir=<git-checkout> > ChangeLog\n")))
                  (lambda ()
                    (display "Please run
     build-aux/gitlog-to-changelog --srcdir=<git-checkout> > ChangeLog\n")))
-               #t)))))
+               #t))
+           (delete  'strip))))
       (synopsis "Maxwell Equations of Software")
       (description
        "Mes aims to create full source bootstrapping for GuixSD.  It
       (synopsis "Maxwell Equations of Software")
       (description
        "Mes aims to create full source bootstrapping for GuixSD.  It
@@ -159,7 +160,7 @@ prototype in C and a Nyacc-based C compiler in [Guile] Scheme.")
       (license gpl3+))))
 
 (define-public mes.git
       (license gpl3+))))
 
 (define-public mes.git
- (let ((version "0.7")
+ (let ((version "0.8")
         (revision "0")
         (commit (read-string (open-pipe "git show HEAD | head -1 | cut -d ' ' -f 2" OPEN_READ))))
     (package
         (revision "0")
         (commit (read-string (open-pipe "git show HEAD | head -1 | cut -d ' ' -f 2" OPEN_READ))))
     (package