(define-module (bugs)
  #:use-module (guix packages)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages)
  #:use-module (gnu packages guile)
  #:use-module (gnu packages nettle)
  #:use-module (gnu packages pkg-config))

(define-public pkg-with-the-bug
  (package
   (name "pkg-with-the-bug")
   (version "0.3.0.8-c2e5")
   (source (origin
            (method url-fetch)
            (uri "guile-nettle-0.3.0.8-c2e5.tar.gz")
            (sha256
             (base32
              "0lmyqc4p6gjgkslkxs925ayh54g35mjn94zljynga1a0bvl7j48l"))))
   (build-system gnu-build-system)
   (arguments `())
   (native-inputs
    `(("pkg-config" ,pkg-config)
      ("guile" ,guile-3.0)))
   (inputs `(("guile" ,guile-3.0)
             ("nettle" ,nettle)))
   (propagated-inputs `())
   (native-search-paths
    (list (search-path-specification
	   (variable "LTDL_LIBRARY_PATH")
	   (files (list "lib/")))))
   (synopsis "")
   (description "")
   (home-page "https://divoplade.fr/guile-nettle.git")
   (license license:gpl3+)))

(define-public pkg-without-the-bug
  (package (inherit pkg-with-the-bug)
	   (name "pkg-without-the-bug")
	   (source
	    (origin
             (method url-fetch)
             (uri "guile-nettle-0.3.0.8-c2e5.tar.gz")
             (sha256
              (base32
               "0lmyqc4p6gjgkslkxs925ayh54g35mjn94zljynga1a0bvl7j48l"))
	     (patches '("disable-function-call.patch"))))))