build-system/cargo: Remove unused function.

* guix/build/cargo-build-system.scm (touch): Remove it.

diff --git a/guix/build/cargo-build-system.scm b/guix/build/cargo-build-system.scm
index c69cae5..4be5443 100644 (file)
--- a/guix/build/cargo-build-system.scm
+++ b/guix/build/cargo-build-system.scm
@@ -168,9 +168,6 @@ directory = '" port)
       (apply invoke `("cargo" "test" ,@cargo-test-flags))
       #t))
 
-(define (touch file-name)
-  (call-with-output-file file-name (const #t)))
-
 (define* (install #:key inputs outputs skip-build? #:allow-other-keys)
   "Install a given Cargo package."
   (let* ((out (assoc-ref outputs "out")))