From 092f815799265098f37cade35bf89664ec5f21e9 Mon Sep 17 00:00:00 2001 From: Julien Lepiller Date: Wed, 22 Jan 2020 01:12:09 +0100 Subject: guix: ocaml: Reuse package-with-ocaml4.01 with ocaml-4.07. * guix/build-system/guix.scm (package-with-ocaml4.01) (strip-ocaml4.01-variant): Rename to... (package-with-ocaml4.07, strip-ocaml4.07-variant): ... this and rename internal implementation. --- guix/build-system/ocaml.scm | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/guix/build-system/ocaml.scm b/guix/build-system/ocaml.scm index cbd33d9a89..de3e71a5aa 100644 --- a/guix/build-system/ocaml.scm +++ b/guix/build-system/ocaml.scm @@ -27,8 +27,8 @@ #:use-module (ice-9 match) #:use-module (srfi srfi-1) #:export (%ocaml-build-system-modules - package-with-ocaml4.01 - strip-ocaml4.01-variant + package-with-ocaml4.07 + strip-ocaml4.07-variant default-findlib default-ocaml lower @@ -84,13 +84,13 @@ (let ((module (resolve-interface '(guix build-system dune)))) (module-ref module 'dune-build-system))) -(define (default-ocaml4.01) +(define (default-ocaml4.07) (let ((ocaml (resolve-interface '(gnu packages ocaml)))) - (module-ref ocaml 'ocaml-4.01))) + (module-ref ocaml 'ocaml-4.07))) -(define (default-ocaml4.01-findlib) +(define (default-ocaml4.07-findlib) (let ((module (resolve-interface '(gnu packages ocaml)))) - (module-ref module 'ocaml4.01-findlib))) + (module-ref module 'ocaml4.07-findlib))) (define* (package-with-explicit-ocaml ocaml findlib old-prefix new-prefix #:key variant-property) @@ -145,17 +145,17 @@ pre-defined variants." (package-mapping transform cut?)) -(define package-with-ocaml4.01 - (package-with-explicit-ocaml (delay (default-ocaml4.01)) - (delay (default-ocaml4.01-findlib)) - "ocaml-" "ocaml4.01-" - #:variant-property 'ocaml4.01-variant)) +(define package-with-ocaml4.07 + (package-with-explicit-ocaml (delay (default-ocaml4.07)) + (delay (default-ocaml4.07-findlib)) + "ocaml-" "ocaml4.07-" + #:variant-property 'ocaml4.07-variant)) -(define (strip-ocaml4.01-variant p) - "Remove the 'ocaml4.01-variant' property from P." +(define (strip-ocaml4.07-variant p) + "Remove the 'ocaml4.07-variant' property from P." (package (inherit p) - (properties (alist-delete 'ocaml4.01-variant (package-properties p))))) + (properties (alist-delete 'ocaml4.07-variant (package-properties p))))) (define* (lower name #:key source inputs native-inputs outputs system target -- cgit 1.4.1