02/02: gnu: android-f2fs-utils: Install mkf2fsuserimg.sh.

[Danny Milosavljevic]

dannym pushed a commit to branch master
in repository guix.

commit a73489e8a74bf5cbd85f0025c28610d098267b53
Author: Danny Milosavljevic <address@hidden>
Date:   Thu May 10 11:24:18 2018 +0200

    gnu: android-f2fs-utils: Install mkf2fsuserimg.sh.
    
    * gnu/packages/android.scm (android-f2fs-utils)[arguments]<#:phases>
    [install-shell-scripts]: New phase.
---
 gnu/packages/android.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/android.scm b/gnu/packages/android.scm
index ddfe90a..763be48 100644
--- a/gnu/packages/android.scm
+++ b/gnu/packages/android.scm
@@ -541,7 +541,16 @@ Android core.")
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (copy-recursively "." (string-append (assoc-ref outputs "out")
                                                   "/include"))
-             #t)))))
+             #t))
+         (add-after 'install 'install-shell-scripts
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (bin (string-append out "/bin")))
+               (patch-shebang "mkf2fsuserimg.sh")
+               (substitute* "mkf2fsuserimg.sh"
+                (("make_f2fs") (string-append bin "/make_f2fs")))
+               (install-file "mkf2fsuserimg.sh" bin)
+               #t))))))
     (inputs
      `(("f2fs-tools" ,f2fs-tools-1.7)
        ("android-libselinux" ,android-libselinux)