(define-module (glicid packages python)
  #:use-module (guix download)
  #:use-module (guix packages)
  #:use-module ((gnu packages python) #:prefix gnu:)
)

(define-public python-3.9
  (package
    (inherit gnu:python-3.9)
    (name "python")
    (version "3.9.13")
    (source
      (origin
        (method url-fetch)
        (uri (string-append "https://www.python.org/ftp/python/" version "/Python-" version ".tar.xz"))
        (sha256 (base32 "03q8lcb476a9n41nih9qvwf1fzfzjbvq6vj0cnmd458yixchqnqj"))
      )
    )
    (arguments
     (substitute-keyword-arguments (package-arguments gnu:python-3.9)
       ((#:tests? _ #f)
        ;; FIXME: To run the test suite, fix all the instances where scripts
        ;; generates "#! /bin/sh" shebangs.
        #f)
      )
    )    

  )
)

;(define-public python-3.10
;  (package
;    (inherit python-3.9)
;    (name "python")
;    (version "3.10.6")
;    (source
;      (origin
;        (method url-fetch)
;        (uri (string-append "https://www.python.org/ftp/python/" version "/Python-" version ".tar.xz"))
;        (sha256 (base32 "1wyknqk46ay2k05118isb2jdhj46qaq5325w6dy0qjqxs63zz5gp"))
;      )
;    )
;  )
;)