~ruther/guix-local

96018e21e7a84c343c1a019fa5c6ef3c15fb24d6 — Federico Beffa 10 years ago c8be6f0
import: hackage: Handle CRLF end of line style.

* guix/import/hackage.scm (hackage-fetch, hackage->guix-package): Use
  'canonical-newline-port'.
1 files changed, 5 insertions(+), 3 deletions(-)

M guix/import/hackage.scm
M guix/import/hackage.scm => guix/import/hackage.scm +5 -3
@@ 22,7 22,8 @@
  #:use-module (srfi srfi-11)
  #:use-module (srfi srfi-1)
  #:use-module ((guix download) #:select (download-to-store))
  #:use-module ((guix utils) #:select (package-name->name+version))
  #:use-module ((guix utils) #:select (package-name->name+version
                                       canonical-newline-port))
  #:use-module (guix import utils)
  #:use-module (guix import cabal)
  #:use-module (guix store)


@@ 84,7 85,8 @@ version."
    (call-with-temporary-output-file
     (lambda (temp port)
       (and (url-fetch url temp)
            (call-with-input-file temp read-cabal))))))
            (call-with-input-file temp
              (compose read-cabal canonical-newline-port)))))))

(define string->license
  ;; List of valid values from


@@ 216,7 218,7 @@ to the Cabal file format definition.  The default value associated with the
keys \"os\", \"arch\" and \"impl\" is \"linux\", \"x86_64\" and \"ghc\"
respectively."
  (let ((cabal-meta (if port
                        (read-cabal port)
                        (read-cabal (canonical-newline-port port))
                        (hackage-fetch package-name))))
    (and=> cabal-meta (compose (cut hackage-module->sexp <>
                                    #:include-test-dependencies?