+ (ubuntu (assoc-ref inputs "ubuntu-keyring")))

+ (substitute* "Makefile"

+ (("/usr") "")

+ (("-o root -g root") "")

+ (("chown root.*") "\n"))

+ (substitute* "scripts/sid"

+ (("/usr") debian))

+ (substitute* "scripts/gutsy"

+ (("/usr") ubuntu))

+ (substitute* "debootstrap"

+ (("=/usr") (string-append "=" out)))

+ (substitute* "functions"

+ (("wget ") (string-append wget "/bin/wget ")))

+ #t)))

+ (add-after 'install 'install-man-file

+ (lambda* (#:key outputs #:allow-other-keys)

+ (let ((out (assoc-ref outputs "out")))

+ (install-file "debootstrap.8"

+ (string-append out "/share/man/man8"))

+ #t))))

+ #:make-flags (list (string-append "DESTDIR=" (assoc-ref %outputs "out")))

+ #:tests? #f)) ; no tests

+ (inputs

+ `(("debian-keyring" ,debian-archive-keyring)

+ ("ubuntu-keyring" ,ubuntu-keyring)

+ ("wget" ,wget)))

+ ;; The following are required for debootstrap to work correctly

+ (propagated-inputs

+ `(("binutils" ,binutils)

+ ("gnupg" ,gnupg)

+ ("perl" ,perl)))

+ (home-page "https://anonscm.debian.org/cgit/d-i/debootstrap.git")

+ (synopsis "Bootstrap a basic Debian system")

+ (description "Debootstrap is used to create a Debian base system from

+scratch, without requiring the availability of @code{dpkg} or @code{apt}.

+It does this by downloading .deb files from a mirror site, and carefully

+unpacking them into a directory which can eventually be chrooted into.")

+ (license license:gpl2)))