From 8784b52a9adbdce4fe4699222a0618077ad66609 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 2 Mar 2021 22:16:42 +0100
Subject: [PATCH] gnu: usync: Patch shebang.

* gnu/packages/sync.scm (usync)[propagated-inputs]: Move SCSH to...
[inputs]: ... here.  New field.
[arguments]: Add #:phases.
---
 gnu/packages/sync.scm | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/sync.scm b/gnu/packages/sync.scm
index d3caf4f13b..d7c9009f3b 100644
--- a/gnu/packages/sync.scm
+++ b/gnu/packages/sync.scm
@@ -2,7 +2,7 @@
 ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
-;;; Copyright © 2018 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2018, 2021 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2018, 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
 ;;; Copyright © 2019 Clément Lassieur <clement@lassieur.org>
 ;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
@@ -335,13 +335,19 @@ (define-public usync
          (sha256
           (base32 "16i1q8f0jmfd43rb8d70l2b383vr5ib4kh7iq3yd345q7xjz9c2j"))))
       (build-system copy-build-system)
+      (inputs
+       `(("scsh" ,scsh)))
       (propagated-inputs
-       `(("scsh" ,scsh)
-         ("rsync" ,rsync)
+       `(("rsync" ,rsync)
          ("unison" ,unison)))
       (arguments
-       `(#:install-plan
-         '(("usync" "bin/usync"))))
+       `(#:install-plan '(("usync" "bin/usync"))
+         #:phases (modify-phases %standard-phases
+                    (add-before 'install 'patch-usync-shebang
+                      (lambda _
+                        (substitute* "usync"
+                          (("/usr/bin/env scsh")
+                           (which "scsh"))))))))
       (home-page "https://github.com/ebzzry/usync")
       (synopsis "Command line site-to-site synchronization tool")
       (description