mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-21 01:26:43 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Remove ocaml4.07-batteries.

Browse source 
* gnu/packages/ocaml.scm (ocaml4.07-batteries): Remove variable.
(ocaml-batteries)[properties]: Remove variant.

Change-Id: I7573033dd1a517cf4f9e456c4f8507e82065550c
This commit is contained in:
Julien Lepiller 2023-12-24 14:11:42 +01:00
parent dd96805c88
commit 2e8700052e
No known key found for this signature in database
GPG key ID: 53D457B2D636EE82
1 changed files with 0 additions and 49 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

49
gnu/packages/ocaml.scm
View file

@ -4453,7 +4453,6 @@ (define-public ocaml-batteries
(("Sys.readdir dirname")
"let a = Sys.readdir dirname in Array.sort String.compare a; a"))
#t)))))
(properties `((ocaml4.07-variant . ,(delay ocaml4.07-batteries))))
(home-page "http://batteries.forge.ocamlcore.org/")
(synopsis "Development platform for the OCaml programming language")
(description "Define a standard set of libraries which may be expected on
@ -4461,54 +4460,6 @@ (define-public ocaml-batteries
hierarchy of modules.")
(license license:lgpl2.1+)))
(define-public ocaml4.07-batteries
(package-with-ocaml4.07
(package
(inherit ocaml-batteries)
(version "2.10.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ocaml-batteries-team/batteries-included")
(commit (string-append "v" version))))
(file-name (git-file-name "ocaml-batteries" version))
(sha256
(base32
"02fxa1nkp7rpiwfp04n0sagdp9lad4dh9bvljp95xfshm1cx7y4q"))))
(arguments
`(#:phases
(modify-phases %standard-phases
(delete 'check) ; tests are run by the build phase
(add-before 'build 'fix-nondeterminism
(lambda _
(substitute* "setup.ml"
(("Sys.readdir dirname")
"let a = Sys.readdir dirname in Array.sort String.compare a; a"))
#t))
(replace 'build
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((files
(map (lambda (str)
(substring str 0 (- (string-length str) 1)))
(append
(find-files "src" ".*.mliv")
(find-files "src" ".*.mlv")
(find-files "src" ".*.mlp")))))
(apply invoke "ocamlbuild" "-no-links" "-use-ocamlfind" "-I" "num"
"-lflag" "-dllpath-all" files)
(for-each (lambda (file)
(copy-file (string-append "_build/" file) file))
files))
(invoke "ocamlbuild" "-no-links" "-use-ocamlfind" "-I" "num"
"-lflag" "-dllpath-all" "build/mkconf.byte")
(copy-file "_build/build/mkconf.byte" "build/mkconf.byte")
(invoke "make" "all")
#t)))))
(native-inputs
`(("ocamlbuild" ,ocamlbuild)
("qtest" ,ocaml-qtest)))
(properties '()))))
(define-public ocaml-pcre
(package
(name "ocaml-pcre")