ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 21:59:08 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: kaldi-for-vosk: Adjust style.

Browse source 
* gnu/packages/machine-learning.scm (kaldi-for-vosk)[inputs]: Remove spurious
semicolon.
[arguments]: Use LIST instead of double quoting; replace LET* with LET; adjust
indentation.
This commit is contained in:
Ricardo Wurmus 2023-05-25 15:31:59 +02:00
parent a9cde26133
commit a9c91a1cb1
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/packages/machine-learning.scm
View file

@ -1848,7 +1848,7 @@ (define kaldi-for-vosk
(base32 "04xw2dpfvpla8skpk08azmgr9k97cd8hn83lj4l85q165gbzql4s")))) (base32 "04xw2dpfvpla8skpk08azmgr9k97cd8hn83lj4l85q165gbzql4s"))))
(inputs (inputs
(list alsa-lib (list alsa-lib
lapack ;; compared to base kaldi, replacing `(,gfortran "lib") lapack ;compared to base kaldi, replacing `(,gfortran "lib")
glib glib
gstreamer gstreamer
jack-1 jack-1
@ -1859,14 +1859,14 @@ (define kaldi-for-vosk
(arguments (arguments
(list (list
#:test-target "test" #:test-target "test"
#:make-flags ''("online2" "lm" "rnnlm") #:make-flags '(list "online2" "lm" "rnnlm")
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'chdir (add-after 'unpack 'chdir
(lambda _ (chdir "src"))) (lambda _ (chdir "src")))
(replace 'configure (replace 'configure
(lambda _ (lambda _
(let* ((portaudio #$(this-package-input "portaudio")) (let ((portaudio #$(this-package-input "portaudio"))
(lapack #$(this-package-input "lapack")) (lapack #$(this-package-input "lapack"))
(openfst #$(this-package-input "openfst")) (openfst #$(this-package-input "openfst"))
(openblas #$(this-package-input "openblas"))) (openblas #$(this-package-input "openblas")))
@ -1912,7 +1912,7 @@ (define kaldi-for-vosk
(lambda _ (substitute* "kaldi.mk" ((" -O1") " -O3")))) (lambda _ (substitute* "kaldi.mk" ((" -O1") " -O3"))))
(replace 'install (replace 'install
(lambda _ (lambda _
(let* ((inc (string-append #$output "/include")) (let ((inc (string-append #$output "/include"))
(lib (string-append #$output "/lib"))) (lib (string-append #$output "/lib")))
;; The build phase installed symlinks to the actual ;; The build phase installed symlinks to the actual
;; libraries. Install the actual targets. ;; libraries. Install the actual targets.