Subject: bug#58480: closed (Re: [bug#58480] [PATCH] gnu: Add ghc-open-browser.)

From: [email-masked] (GNU bug Tracking System)
Date: Thu, 13 Oct 2022 10:12:02 +0000

Your bug report

#58480: [PATCH] gnu: Add ghc-open-browser.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
58480: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=58480
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: [bug#58480] [PATCH] gnu: Add ghc-open-browser.
From: Christopher Baines <[email-masked]>
To: jgart <[email-masked]>
Cc: [email-masked]
Date: Thu, 13 Oct 2022 11:10:54 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

jgart via Guix-patches via <[email-masked]> writes:

> * gnu/packages/haskell-xyz.scm (ghc-open-browser): New variable.
> ---
>  gnu/packages/haskell-xyz.scm | 28 ++++++++++++++++++++++++++++
>  1 file changed, 28 insertions(+)

Thanks, pushed to master as cc58a0c62739d93c1d22a9930f11abdb0bd7ac04.

Chris

Subject: [PATCH] gnu: Add ghc-open-browser.
From: jgart <[email-masked]>
To: [email-masked]
Cc: jgart <[email-masked]>
Date: Wed, 12 Oct 2022 23:28:09 -0500
List-Id: <debbugs-submit.debbugs.gnu.org>

* gnu/packages/haskell-xyz.scm (ghc-open-browser): New variable.
---
 gnu/packages/haskell-xyz.scm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/gnu/packages/haskell-xyz.scm b/gnu/packages/haskell-xyz.scm
index db653f8c93..70fdffdc0b 100644
--- a/gnu/packages/haskell-xyz.scm
+++ b/gnu/packages/haskell-xyz.scm
@@ -53,6 +53,7 @@ (define-module (gnu packages haskell-xyz)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages databases)
   #:use-module (gnu packages emacs)
+  #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages gl)
   #:use-module (gnu packages graphviz)
   #:use-module (gnu packages gtk)
@@ -16118,6 +16119,33 @@ (define-public ghc-ansi2html
 pages.")
     (license license:bsd-3)))
 
+(define-public ghc-open-browser
+  (package
+    (name "ghc-open-browser")
+    (version "0.2.1.0")
+    (source (origin
+              (method url-fetch)
+              (uri (hackage-uri "open-browser" version))
+              (sha256
+               (base32
+                "0rna8ir2cfp8gk0rd2q60an51jxc08lx4gl0liw8wwqgh1ijxv8b"))))
+    (build-system haskell-build-system)
+    (arguments
+      (list
+       #:phases
+       #~(modify-phases %standard-phases
+         (add-before 'configure 'patch-xdg-open
+           (lambda* (#:key inputs #:allow-other-keys)
+             (let ((xdg-open (assoc-ref inputs "xdg-utils")))
+               (substitute* "lib/Web/Browser/Linux.hs"
+                 (("xdg-open")
+                  (search-input-file inputs "/bin/xdg-open")))))))))
+    (inputs (list xdg-utils))
+    (home-page "https://github.com/rightfold/open-browser")
+    (synopsis "Open a web browser from Haskell")
+    (description "Haskell library for opening the web browser.")
+    (license license:bsd-3)))
+
 (define-public ghc-singleton-bool
   (package
     (name "ghc-singleton-bool")
-- 
2.38.0