From 5368830fe10be267a77d0d8c02a6893499e86cd2 Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Tue, 25 Apr 2023 14:36:58 +0300
Subject: [PATCH] gnu: rust-webpki-0.18: Fix build.

* gnu/packages/crates-io.scm (rust-webpki-0.18)[inherit]: Inherit from
rust-webpki-0.19.
[arguments]: Add a phase to build the curve25519 tables.
---
 gnu/packages/crates-io.scm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/crates-io.scm b/gnu/packages/crates-io.scm
index ffa2c2ffe0..872b3d2127 100644
--- a/gnu/packages/crates-io.scm
+++ b/gnu/packages/crates-io.scm
@@ -71508,7 +71508,7 @@ (define-public rust-webpki-0.19
 
 (define-public rust-webpki-0.18
   (package
-    (inherit rust-webpki-0.21)
+    (inherit rust-webpki-0.19)
     (name "rust-webpki")
     (version "0.18.1")
     (source
@@ -71524,7 +71524,16 @@ (define-public rust-webpki-0.18
        (("rust-ring" ,rust-ring-0.13)
         ("rust-untrusted" ,rust-untrusted-0.6))
        #:cargo-development-inputs
-       (("rust-base64" ,rust-base64-0.9))))))
+       (("rust-base64" ,rust-base64-0.9))
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'build 'build-curve25519-tables
+           (lambda* (#:key vendor-dir #:allow-other-keys)
+             (with-directory-excursion
+               (dirname (car (find-files vendor-dir "make_curve25519_tables.py")))
+               (with-output-to-file "curve25519_tables.h"
+                 (lambda _
+                   (invoke "python" "make_curve25519_tables.py")))))))))))
 
 (define-public rust-webpki-roots-0.22
   (package