guix/http.scm

   1 ;;; Guix --- Nix package management from Guile.         -*- coding: utf-8 -*-
   2 ;;; Copyright (C) 2012 Ludovic Courtès <ludo@gnu.org>
   3 ;;;
   4 ;;; This file is part of Guix.
   5 ;;;
   6 ;;; Guix is free software; you can redistribute it and/or modify it
   7 ;;; under the terms of the GNU General Public License as published by
   8 ;;; the Free Software Foundation; either version 3 of the License, or (at
   9 ;;; your option) any later version.
  10 ;;;
  11 ;;; Guix is distributed in the hope that it will be useful, but
  12 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 ;;; GNU General Public License for more details.
  15 ;;;
  16 ;;; You should have received a copy of the GNU General Public License
  17 ;;; along with Guix.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 (define-module (guix http)
  20   #:use-module (guix derivations)
  21   #:use-module (guix utils)
  22   #:export (http-fetch))
  23
  24 ;;; Commentary:
  25 ;;;
  26 ;;; Produce fixed-output derivations with data fetched over HTTP.
  27 ;;;
  28 ;;; Code:
  29
  30 (define* (http-fetch store url hash-algo hash
  31                      #:optional name
  32                      #:key (system (%current-system)))
  33   "Return the path of a fixed-output derivation in STORE that fetches URL,
  34 which is expected to have hash HASH of type HASH-ALGO (a symbol).  By
  35 default, the file name is the base name of URL; optionally, NAME can specify
  36 a different file name."
  37   (define builder
  38     `(begin
  39        (use-modules (guix build http))
  40        (http-fetch ,url %output)))
  41
  42   (build-expression->derivation store (or name (basename url)) system
  43                                 builder '()
  44                                 #:hash-algo hash-algo
  45                                 #:hash hash
  46                                 #:modules '((guix build http))))