Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-open-browser for openSUSE:Factory checked in at 2025-03-25 22:12:08 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-open-browser (Old) and /work/SRC/openSUSE:Factory/.ghc-open-browser.new.2696 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-open-browser" Tue Mar 25 22:12:08 2025 rev:2 rq:1255894 version:0.2.1.1 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-open-browser/ghc-open-browser.changes 2024-12-20 23:09:53.938690492 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-open-browser.new.2696/ghc-open-browser.changes 2025-03-25 22:21:14.008546063 +0100 @@ -1,0 +2,8 @@ +Sat Mar 15 23:51:37 UTC 2025 - Peter Simons <psim...@suse.com> + +- Update open-browser to version 0.2.1.1. + Upstream added a new change log file in this release. With no + previous version to compare against, the automatic updater cannot + reliable determine the relevante entries for this release. + +------------------------------------------------------------------- Old: ---- open-browser-0.2.1.0.tar.gz New: ---- open-browser-0.2.1.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-open-browser.spec ++++++ --- /var/tmp/diff_new_pack.j8pX0n/_old 2025-03-25 22:21:14.560568975 +0100 +++ /var/tmp/diff_new_pack.j8pX0n/_new 2025-03-25 22:21:14.564569141 +0100 @@ -1,7 +1,7 @@ # # spec file for package ghc-open-browser # -# Copyright (c) 2016 SUSE LLC +# Copyright (c) 2025 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -19,13 +19,12 @@ %global pkg_name open-browser %global pkgver %{pkg_name}-%{version} Name: ghc-%{pkg_name} -Version: 0.2.1.0 +Version: 0.2.1.1 Release: 0 Summary: Open a web browser from Haskell License: BSD-3-Clause URL: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{version}.tar.gz -BuildRequires: chrpath BuildRequires: ghc-Cabal-devel BuildRequires: ghc-base-devel BuildRequires: ghc-base-prof @@ -68,11 +67,11 @@ %autosetup -n %{pkg_name}-%{version} %build +%define cabal_configure_options -f-example %ghc_lib_build %install %ghc_lib_install -rm %{buildroot}/%{_bindir}/example %post devel %ghc_pkg_recache @@ -84,6 +83,7 @@ %license LICENSE %files devel -f %{name}-devel.files +%doc CHANGELOG.md README.md %files -n ghc-%{pkg_name}-doc -f ghc-%{pkg_name}-doc.files %license LICENSE ++++++ open-browser-0.2.1.0.tar.gz -> open-browser-0.2.1.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/open-browser-0.2.1.0/CHANGELOG.md new/open-browser-0.2.1.1/CHANGELOG.md --- old/open-browser-0.2.1.0/CHANGELOG.md 1970-01-01 01:00:00.000000000 +0100 +++ new/open-browser-0.2.1.1/CHANGELOG.md 2025-03-16 00:46:29.000000000 +0100 @@ -0,0 +1,47 @@ +# Changelog for `open-browser` + +All notable changes to this project will be documented in this file. + +The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/), +and this project adheres to the +[Haskell Package Versioning Policy](https://pvp.haskell.org/). + +## 0.2.1.1 - 2025-03-15 + +* Add `CHANGELOG.md` and `README.md`. +* Add `stack.yaml` and `stack.yaml.lock` to package description. +* Example executable renamed `open-browser-example` (from `example`). +* The building of the example executable now requires Cabal flag `example` + (default: false). +* URL in example executable updated to https://www.haskell.org/. + +## 0.2.1.0 - 2016-01-05 + +* As released by rightfold on Hackage. This entry and prior change log is + reconstructed. +* Support GHC versions before GHC 8.0. +* Add support for 32-bit Windows. + +## 0.2.0.0 - 2015-07-31 + +* Remote deprecated `Network.Browser.openBrowser`. + +## 0.1.4.0 - 2015-07-30 + +* On Linux, silence `xdg-open`. + +## 0.1.3.0 - 2015-07-27 + +* Add support for BSD and Windows. + +## 0.1.2.0 - 2015-07-27 + +* `Web.Browser.openBrowser` added and `Network.Browser.openBrowser` deprecated. + +## 0.1.1.0 - 2015-07-27 + +* Add support for Linux. + +## 0.1.0.0 - 2015-07-25 + +* Initial version. Only OS X supported. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/open-browser-0.2.1.0/LICENSE new/open-browser-0.2.1.1/LICENSE --- old/open-browser-0.2.1.0/LICENSE 2016-01-05 09:33:38.000000000 +0100 +++ new/open-browser-0.2.1.1/LICENSE 2025-03-10 20:55:49.000000000 +0100 @@ -1,30 +1,30 @@ -Copyright (c) 2015, rightfold - -All rights reserved. - -Redistribution and use in source and binary forms, with or without -modification, are permitted provided that the following conditions are met: - - * Redistributions of source code must retain the above copyright - notice, this list of conditions and the following disclaimer. - - * Redistributions in binary form must reproduce the above - copyright notice, this list of conditions and the following - disclaimer in the documentation and/or other materials provided - with the distribution. - - * Neither the name of rightfold nor the names of other - contributors may be used to endorse or promote products derived - from this software without specific prior written permission. - -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT -LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR -A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT -OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, -SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT -LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY -THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE -OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +Copyright (c) 2015, rightfold + +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + + * Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. + + * Redistributions in binary form must reproduce the above + copyright notice, this list of conditions and the following + disclaimer in the documentation and/or other materials provided + with the distribution. + + * Neither the name of rightfold nor the names of other + contributors may be used to endorse or promote products derived + from this software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT +LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/open-browser-0.2.1.0/README.md new/open-browser-0.2.1.1/README.md --- old/open-browser-0.2.1.0/README.md 1970-01-01 01:00:00.000000000 +0100 +++ new/open-browser-0.2.1.1/README.md 2025-03-10 20:55:49.000000000 +0100 @@ -0,0 +1,9 @@ +# open-browser + +A Haskell library that provides the function `openBrowser` that, given a URL, +yields an IO action that seeks to open the URL in the user's preferred web +browser. + +Supported operating systems are Windows, macOS, Linux and BSD. + +Originally developed by rightfold. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/open-browser-0.2.1.0/Setup.hs new/open-browser-0.2.1.1/Setup.hs --- old/open-browser-0.2.1.0/Setup.hs 2016-01-05 09:33:38.000000000 +0100 +++ new/open-browser-0.2.1.1/Setup.hs 2025-03-10 20:55:49.000000000 +0100 @@ -1,2 +1,2 @@ -import Distribution.Simple -main = defaultMain +import Distribution.Simple +main = defaultMain diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/open-browser-0.2.1.0/example/Main.hs new/open-browser-0.2.1.1/example/Main.hs --- old/open-browser-0.2.1.0/example/Main.hs 2016-01-05 09:33:38.000000000 +0100 +++ new/open-browser-0.2.1.1/example/Main.hs 2025-03-10 20:55:49.000000000 +0100 @@ -1,8 +1,8 @@ -module Main -( main -) where - -import Web.Browser (openBrowser) - -main :: IO () -main = openBrowser "http://haskell.org/" >>= print +module Main + ( main + ) where + +import Web.Browser ( openBrowser ) + +main :: IO () +main = openBrowser "https://haskell.org/" >>= print diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/open-browser-0.2.1.0/lib/Web/Browser/Linux.hs new/open-browser-0.2.1.1/lib/Web/Browser/Linux.hs --- old/open-browser-0.2.1.0/lib/Web/Browser/Linux.hs 2016-01-05 09:33:38.000000000 +0100 +++ new/open-browser-0.2.1.1/lib/Web/Browser/Linux.hs 2025-03-10 20:55:49.000000000 +0100 @@ -1,12 +1,13 @@ -module Web.Browser.Linux -( openBrowserLinux -) where - -import System.Exit (ExitCode(..)) -import System.Process (rawSystem) - -openBrowserLinux :: String -> IO Bool -openBrowserLinux url = exitCodeToBool `fmap` rawSystem executable argv - where (executable, argv) = ("sh", ["-c", "xdg-open \"$0\" 2>&1 > /dev/null", url]) - exitCodeToBool ExitSuccess = True - exitCodeToBool (ExitFailure _) = False +module Web.Browser.Linux + ( openBrowserLinux + ) where + +import System.Exit ( ExitCode (..) ) +import System.Process ( rawSystem ) + +openBrowserLinux :: String -> IO Bool +openBrowserLinux url = exitCodeToBool `fmap` rawSystem executable argv + where + (executable, argv) = ("sh", ["-c", "xdg-open \"$0\" 2>&1 > /dev/null", url]) + exitCodeToBool ExitSuccess = True + exitCodeToBool (ExitFailure _) = False diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/open-browser-0.2.1.0/lib/Web/Browser/OSX.hs new/open-browser-0.2.1.1/lib/Web/Browser/OSX.hs --- old/open-browser-0.2.1.0/lib/Web/Browser/OSX.hs 2016-01-05 09:33:38.000000000 +0100 +++ new/open-browser-0.2.1.1/lib/Web/Browser/OSX.hs 2025-03-10 20:55:49.000000000 +0100 @@ -1,12 +1,13 @@ -module Web.Browser.OSX -( openBrowserOSX -) where - -import System.Exit (ExitCode(..)) -import System.Process (rawSystem) - -openBrowserOSX :: String -> IO Bool -openBrowserOSX url = exitCodeToBool `fmap` rawSystem executable argv - where (executable, argv) = ("open", [url]) - exitCodeToBool ExitSuccess = True - exitCodeToBool (ExitFailure _) = False +module Web.Browser.OSX + ( openBrowserOSX + ) where + +import System.Exit ( ExitCode (..) ) +import System.Process ( rawSystem ) + +openBrowserOSX :: String -> IO Bool +openBrowserOSX url = exitCodeToBool `fmap` rawSystem executable argv + where + (executable, argv) = ("open", [url]) + exitCodeToBool ExitSuccess = True + exitCodeToBool (ExitFailure _) = False diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/open-browser-0.2.1.0/lib/Web/Browser/Windows.hs new/open-browser-0.2.1.1/lib/Web/Browser/Windows.hs --- old/open-browser-0.2.1.0/lib/Web/Browser/Windows.hs 2016-01-05 09:33:38.000000000 +0100 +++ new/open-browser-0.2.1.1/lib/Web/Browser/Windows.hs 2025-03-10 20:55:49.000000000 +0100 @@ -1,31 +1,35 @@ -{-# LANGUAGE CPP #-} -{-# LANGUAGE ForeignFunctionInterface #-} -module Web.Browser.Windows -( openBrowserWindows -) where - -import System.Win32.Types (INT, HANDLE, HINSTANCE, LPCTSTR, - handleToWord, nullPtr, withTString) - -openBrowserWindows :: String -> IO Bool -openBrowserWindows url = - withTString "open" $ \openStr -> - withTString url $ \urlStr -> - exitCodeToBool `fmap` c_ShellExecute nullPtr - openStr - urlStr - nullPtr - nullPtr - 1 - where exitCodeToBool hinst | handleToWord hinst > 32 = True - | otherwise = False - --- https://msdn.microsoft.com/en-us/library/windows/desktop/bb762153(v=vs.85).aspx -foreign import WINDOWS_CCONV unsafe "windows.h ShellExecuteW" - c_ShellExecute :: HANDLE -- _In_opt_ - -> LPCTSTR -- _In_opt_ - -> LPCTSTR -- _In_ - -> LPCTSTR -- _In_opt_ - -> LPCTSTR -- _In_opt_ - -> INT -- _In_ - -> IO HINSTANCE +{-# LANGUAGE CPP #-} +{-# LANGUAGE ForeignFunctionInterface #-} + +module Web.Browser.Windows + ( openBrowserWindows + ) where + +import System.Win32.Types + ( HANDLE, HINSTANCE, INT, LPCTSTR, handleToWord, nullPtr, withTString ) + +openBrowserWindows :: String -> IO Bool +openBrowserWindows url = + withTString "open" $ \openStr -> + withTString url $ \urlStr -> + exitCodeToBool `fmap` c_ShellExecute nullPtr + openStr + urlStr + nullPtr + nullPtr + 1 + where + exitCodeToBool hinst + | handleToWord hinst > 32 = True + | otherwise = False + +-- https://learn.microsoft.com/en-us/windows/win32/api/shellapi/nf-shellapi-shellexecutew +foreign import WINDOWS_CCONV unsafe "windows.h ShellExecuteW" + c_ShellExecute :: + HANDLE -- _In_opt_ + -> LPCTSTR -- _In_opt_ + -> LPCTSTR -- _In_ + -> LPCTSTR -- _In_opt_ + -> LPCTSTR -- _In_opt_ + -> INT -- _In_ + -> IO HINSTANCE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/open-browser-0.2.1.0/lib/Web/Browser.hs new/open-browser-0.2.1.1/lib/Web/Browser.hs --- old/open-browser-0.2.1.0/lib/Web/Browser.hs 2016-01-05 09:33:38.000000000 +0100 +++ new/open-browser-0.2.1.1/lib/Web/Browser.hs 2025-03-10 20:55:49.000000000 +0100 @@ -1,25 +1,30 @@ -{-# LANGUAGE CPP #-} -module Web.Browser -( openBrowser -) where - -#if defined(mingw32_HOST_OS) -import Web.Browser.Windows (openBrowserWindows) -#else -import Data.List (isInfixOf) -import System.Info (os) -import Web.Browser.Linux (openBrowserLinux) -import Web.Browser.OSX (openBrowserOSX) -#endif - --- |'openBrowser' opens a URL in the user's preferred web browser. Returns --- whether or not the operation succeeded. -openBrowser :: String -> IO Bool -#if defined(mingw32_HOST_OS) -openBrowser = openBrowserWindows -#else -openBrowser - | any (`isInfixOf` os) ["linux", "bsd"] = openBrowserLinux - | "darwin" `isInfixOf` os = openBrowserOSX - | otherwise = error "unsupported platform" -#endif +{-# LANGUAGE CPP #-} + +module Web.Browser + ( openBrowser + ) where + +#if defined(mingw32_HOST_OS) +import Web.Browser.Windows ( openBrowserWindows ) +#else +import Data.List ( isInfixOf ) +import System.Info ( os ) +import Web.Browser.Linux ( openBrowserLinux ) +import Web.Browser.OSX ( openBrowserOSX ) +#endif + +-- | Seeks to open the given URL in the user's preferred web browser. Returns +-- whether or not the operation succeeded. Throws an 'ErrorCall' exception if +-- the operating system is unsupported. +openBrowser :: + String + -- ^ URL + -> IO Bool +#if defined(mingw32_HOST_OS) +openBrowser = openBrowserWindows +#else +openBrowser + | any (`isInfixOf` os) ["linux", "bsd"] = openBrowserLinux + | "darwin" `isInfixOf` os = openBrowserOSX + | otherwise = error "unsupported platform" +#endif diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/open-browser-0.2.1.0/open-browser.cabal new/open-browser-0.2.1.1/open-browser.cabal --- old/open-browser-0.2.1.0/open-browser.cabal 2016-01-05 09:33:38.000000000 +0100 +++ new/open-browser-0.2.1.1/open-browser.cabal 2025-03-15 23:49:24.000000000 +0100 @@ -1,41 +1,68 @@ -name: open-browser -version: 0.2.1.0 -synopsis: Open a web browser from Haskell. -description: Open a web browser from Haskell. - Currently BSD, Linux, OS X and Windows are supported. -license: BSD3 -license-file: LICENSE -author: rightfold -homepage: https://github.com/rightfold/open-browser -maintainer: rightf...@gmail.com -bug-reports: https://github.com/rightfold/open-browser/issues -category: Web -build-type: Simple -cabal-version: >=1.10 +cabal-version: 1.12 -tested-with: GHC >= 7.6 +-- This file has been generated from package.yaml by hpack version 0.38.0. +-- +-- see: https://github.com/sol/hpack + +name: open-browser +version: 0.2.1.1 +synopsis: Open a web browser from Haskell. +description: Open a web browser from Haskell. Currently BSD, Linux, OS X and Windows are + supported. +category: Web +homepage: https://github.com/mpilgrem/open-browser +bug-reports: https://github.com/mpilgrem/open-browser/issues +author: rightfold +maintainer: pub...@pilgrem.com +license: BSD3 +license-file: LICENSE +build-type: Simple +tested-with: + GHC >= 7.6 +extra-source-files: + CHANGELOG.md + README.md + stack.yaml + stack.yaml.lock source-repository head - type: git - location: https://github.com/rightfold/open-browser.git + type: git + location: https://github.com/mpilgrem/open-browser + +flag example + description: Build the example application + manual: True + default: False library - exposed-modules: Web.Browser - other-modules: Web.Browser.Linux, - Web.Browser.OSX - hs-source-dirs: lib - default-language: Haskell2010 - build-depends: base >= 4 && < 5, process >= 1 && < 2 - if os(windows) - build-depends: Win32 - other-modules: Web.Browser.Windows - if arch(i386) - cpp-options: "-DWINDOWS_CCONV=stdcall" - else - cpp-options: "-DWINDOWS_CCONV=ccall" - -executable example - main-is: Main.hs - hs-source-dirs: example - default-language: Haskell2010 - build-depends: base >= 4 && < 5, open-browser + exposed-modules: + Web.Browser + other-modules: + Web.Browser.Linux + Web.Browser.OSX + hs-source-dirs: + lib + build-depends: + base ==4.* + , process ==1.* + default-language: Haskell2010 + if os(windows) + other-modules: + Web.Browser.Windows + build-depends: + Win32 + if arch(i386) + cpp-options: -DWINDOWS_CCONV=stdcall + else + cpp-options: -DWINDOWS_CCONV=ccall + +executable open-browser-example + main-is: Main.hs + hs-source-dirs: + example + build-depends: + base ==4.* + , open-browser + default-language: Haskell2010 + if !flag(example) + buildable: False diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/open-browser-0.2.1.0/stack.yaml new/open-browser-0.2.1.1/stack.yaml --- old/open-browser-0.2.1.0/stack.yaml 1970-01-01 01:00:00.000000000 +0100 +++ new/open-browser-0.2.1.1/stack.yaml 2025-03-10 20:55:49.000000000 +0100 @@ -0,0 +1 @@ +snapshot: lts-23.10 # GHC 9.8.4 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/open-browser-0.2.1.0/stack.yaml.lock new/open-browser-0.2.1.1/stack.yaml.lock --- old/open-browser-0.2.1.0/stack.yaml.lock 1970-01-01 01:00:00.000000000 +0100 +++ new/open-browser-0.2.1.1/stack.yaml.lock 2025-03-10 20:55:49.000000000 +0100 @@ -0,0 +1,12 @@ +# This file was autogenerated by Stack. +# You should not edit this file by hand. +# For more information, please see the documentation at: +# https://docs.haskellstack.org/en/stable/topics/lock_files + +packages: [] +snapshots: +- completed: + sha256: 889b6bffaf21cd509a7c6017703281e77c2f6df0a0908a11c85fa97fcbf11d4e + size: 680573 + url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/23/10.yaml + original: lts-23.10