diff options
author | Ludovic Courtès <ludo@gnu.org> | 2012-11-13 00:22:44 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2012-11-13 00:23:39 +0100 |
commit | 87f5d36630db13fee1f2c0563505dc0938f3787e (patch) | |
tree | 9cbbbd3d3c47b647ff7b3131cf8271586e5167a6 /guix/http.scm | |
parent | 62cab99c3297a066f466780bb4d83a4f142538c7 (diff) | |
download | guix-patches-87f5d36630db13fee1f2c0563505dc0938f3787e.tar guix-patches-87f5d36630db13fee1f2c0563505dc0938f3787e.tar.gz |
Remove (guix http) and (guix ftp).
* guix/ftp.scm, guix/http.scm, guix/build/ftp.scm, guix/build/http.scm:
Remove.
* Makefile.am (MODULES): Likewise.
* tests/builders.scm, distro/packages/base.scm,
distro/packages/bash.scm, distro/packages/bdw-gc.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gnupg.scm, distro/packages/gperf.scm,
distro/packages/guile.scm, distro/packages/libffi.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/lout.scm,
distro/packages/m4.scm, distro/packages/multiprecision.scm,
distro/packages/ncurses.scm, distro/packages/perl.scm,
distro/packages/pkg-config.scm, distro/packages/pth.scm,
distro/packages/readline.scm, distro/packages/recutils.scm: Use
`url-fetch' instead of `http-fetch' and `ftp-fetch'.
* distro/packages/bootstrap.scm: Likewise
(bootstrap-origin): Remove references to `http-fetch' and
`ftp-fetch'.
* guix.scm (%public-modules): Remove `http' and `ftp'; add `download'.
Diffstat (limited to 'guix/http.scm')
-rw-r--r-- | guix/http.scm | 63 |
1 files changed, 0 insertions, 63 deletions
diff --git a/guix/http.scm b/guix/http.scm deleted file mode 100644 index 182d011b77..0000000000 --- a/guix/http.scm +++ /dev/null @@ -1,63 +0,0 @@ -;;; Guix --- Nix package management from Guile. -*- coding: utf-8 -*- -;;; Copyright (C) 2012 Ludovic Courtès <ludo@gnu.org> -;;; -;;; This file is part of Guix. -;;; -;;; Guix is free software; you can redistribute it and/or modify it -;;; under the terms of the GNU General Public License as published by -;;; the Free Software Foundation; either version 3 of the License, or (at -;;; your option) any later version. -;;; -;;; Guix is distributed in the hope that it will be useful, but -;;; WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;;; GNU General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with Guix. If not, see <http://www.gnu.org/licenses/>. - -(define-module (guix http) - #:use-module (ice-9 match) - #:use-module (guix derivations) - #:use-module (guix packages) - #:use-module ((guix store) #:select (derivation-path?)) - #:use-module (guix utils) - #:export (http-fetch)) - -;;; Commentary: -;;; -;;; Produce fixed-output derivations with data fetched over HTTP. -;;; -;;; Code: - -(define* (http-fetch store url hash-algo hash - #:optional name - #:key (system (%current-system)) guile) - "Return the path of a fixed-output derivation in STORE that fetches URL, -which is expected to have hash HASH of type HASH-ALGO (a symbol). By -default, the file name is the base name of URL; optionally, NAME can specify -a different file name." - (define builder - `(begin - (use-modules (guix build http)) - (http-fetch ,url %output))) - - (define guile-for-build - (match guile - ((? package?) - (package-derivation store guile system)) - ((and (? string?) (? derivation-path?)) - guile) - (#f ; the default - (let* ((distro (resolve-interface '(distro packages base))) - (guile (module-ref distro 'guile-final))) - (package-derivation store guile system))))) - - (build-expression->derivation store (or name (basename url)) system - builder '() - #:hash-algo hash-algo - #:hash hash - #:modules '((guix build http)) - #:guile-for-build guile-for-build)) - -;;; http.scm ends here |