nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: tuxguitar: Use "modify-phases" syntax. 

* gnu/packages/music.scm (tuxguitar)[arguments]: Use "modify-phases"
  syntax.
master
Ricardo Wurmus 2015-12-29 07:48:10 +01:00
parent c1ff0f2fed
commit 5f1c949866
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
gnu/packages/music.scm
View File

@ -701,17 +701,17 @@ is subjective.")
#:tests? #f ;no "check" target #:tests? #f ;no "check" target
#:parallel-build? #f ;not supported #:parallel-build? #f ;not supported
#:phases #:phases
(alist-cons-before (modify-phases %standard-phases
'build 'enter-dir-set-path-and-pass-ldflags (delete 'configure)
(lambda* (#:key inputs #:allow-other-keys) (add-before 'build 'enter-dir-and-set-flags
(chdir "TuxGuitar") (lambda* (#:key inputs #:allow-other-keys)
(substitute* "GNUmakefile" (chdir "TuxGuitar")
(("PROPERTIES\\?=") (substitute* "GNUmakefile"
(string-append "PROPERTIES?= -Dswt.library.path=" (("PROPERTIES\\?=")
(assoc-ref inputs "swt") "/lib")) (string-append "PROPERTIES?= -Dswt.library.path="
(("\\$\\(GCJ\\) -o") "$(GCJ) $(LDFLAGS) -o")) (assoc-ref inputs "swt") "/lib"))
#t) (("\\$\\(GCJ\\) -o") "$(GCJ) $(LDFLAGS) -o"))
(alist-delete 'configure %standard-phases)))) #t)))))
(inputs (inputs
`(("swt" ,swt))) `(("swt" ,swt)))
(native-inputs (native-inputs