(define-module (gpip python2-7)
  #:use-module ((gnu packages python)
                #:select (python-2.7))
  #:use-module (guix build-system python)
  #:use-module (pypi sdist-store)
  #:use-module (pypi package)
  #:use-module (pypi requirement)
  #:use-module (pypi sdist)
  #:use-module (gpip sdists)
  #:use-module (gpip package-fixes))

(let
  ((store
    (add-sdists (make-sdist-store) sdists)))
  (for-each
    (lambda (sd)
      (catch
        #t
        (lambda ()
          (let ((sym (string->symbol
                       (string-append
                         (pkg-info-name (sdist-info sd))
                         "-"
                         (pkg-info-version (sdist-info sd)))))
                (pkg
                  (requirement->package
                    (package-configuration
                      python-2.7
                      get-fixed-package)
                    store
                    (requirement
                      (name (pkg-info-name (sdist-info sd)))
                      (specifiers
                        (string-append "==" (pkg-info-version (sdist-info sd))))))))
            (module-define! (resolve-interface '(gpip python2-7)) sym pkg)))
        (lambda args
          (display "Error creating package " (current-error-port))
          (display
            (string-append
              (pkg-info-name (sdist-info sd))
              "-"
              (pkg-info-version (sdist-info sd)))
            (current-error-port))
          (display "\n" (current-error-port))
          (display args (current-error-port))
          (display "\n" (current-error-port)))))
    sdists))