ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -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

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

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