amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: gdb: Normalize indentation.

Browse source 
* gnu/packages/gdb.scm (gdb-10): Fix indentation and remove extraneous
newlines.  Remove trailing #t.
(gdb-minimal): Fix indentation.
This commit is contained in:
Maxim Cournoyer 2021-10-14 21:04:42 -04:00
parent 41f058d10d
commit 8a613f9d4e
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 46 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

18
gnu/packages/gdb.scm
View file

@ -62,12 +62,9 @@
(outputs '("out" "debug")) (outputs '("out" "debug"))
(arguments (arguments
`(#:tests? #f ; FIXME "make check" fails on single-processor systems. `(#:tests? #f ; FIXME "make check" fails on single-processor systems.
#:out-of-source? #t #:out-of-source? #t
#:modules ((srfi srfi-1) #:modules ((srfi srfi-1)
,@%gnu-build-system-modules) ,@%gnu-build-system-modules)
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(add-after 'unpack 'patch-paths (add-after 'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
@ -77,14 +74,11 @@
"gdbsupport/pathstuff.cc") "gdbsupport/pathstuff.cc")
(("\"/bin/sh\"") (("\"/bin/sh\"")
(format #f "~s" sh)))))) (format #f "~s" sh))))))
(add-after (add-after 'configure 'post-configure
'configure 'post-configure
(lambda _ (lambda _
(for-each patch-makefile-SHELL (for-each patch-makefile-SHELL
(find-files "." "Makefile\\.in")) (find-files "." "Makefile\\.in"))))
#t)) (add-after 'install 'remove-libs-already-in-binutils
(add-after
'install 'remove-libs-already-in-binutils
(lambda* (#:key native-inputs inputs outputs (lambda* (#:key native-inputs inputs outputs
#:allow-other-keys) #:allow-other-keys)
;; Like Binutils, GDB installs libbfd, libopcodes, etc. ;; Like Binutils, GDB installs libbfd, libopcodes, etc.
@ -103,8 +97,7 @@
(common (lset-intersection string=? (common (lset-intersection string=?
files1 files2))) files1 files2)))
(with-directory-excursion out (with-directory-excursion out
(for-each delete-file common) (for-each delete-file common))))))))
#t)))))))
(inputs (inputs
`(("bash" ,bash) `(("bash" ,bash)
("expat" ,expat) ("expat" ,expat)
@ -187,8 +180,7 @@ written in C, C++, Ada, Objective-C, Pascal and more.")
gdb-10) gdb-10)
(define-public gdb-minimal (define-public gdb-minimal
(package/inherit (package/inherit gdb
gdb
(name "gdb-minimal") (name "gdb-minimal")
(inputs (fold alist-delete (package-inputs gdb) (inputs (fold alist-delete (package-inputs gdb)
'("libxml2" "ncurses" "python-wrapper" "source-highlight"))))) '("libxml2" "ncurses" "python-wrapper" "source-highlight")))))