File ghc-X11.spec of Package ghc-X11

#
# spec file for package ghc-X11
#
# 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
# upon. The license for this file, and modifications and additions to the
# file, is the same license as for the pristine package itself (unless the
# license for the pristine package is not an Open Source License, in which
# case the license is the MIT License). An "Open Source License" is a
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.

# Please submit bugfixes or comments via https://bugs.opensuse.org/
#


%global pkg_name X11
%global pkgver %{pkg_name}-%{version}
Name:           ghc-%{pkg_name}
Version:        1.10.3
Release:        0
Summary:        A binding to the X11 graphics library
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
Source1:        https://hackage.haskell.org/package/%{pkg_name}-%{version}/revision/1.cabal#/%{pkg_name}.cabal
BuildRequires:  ghc-Cabal-devel
BuildRequires:  ghc-base-devel
BuildRequires:  ghc-base-prof
BuildRequires:  ghc-data-default-class-devel
BuildRequires:  ghc-data-default-class-prof
BuildRequires:  ghc-rpm-macros
BuildRequires:  pkgconfig
BuildRequires:  pkgconfig(x11)
BuildRequires:  pkgconfig(x11-xcb)
BuildRequires:  pkgconfig(xext)
BuildRequires:  pkgconfig(xinerama)
BuildRequires:  pkgconfig(xrandr)
BuildRequires:  pkgconfig(xscrnsaver)
ExcludeArch:    %{ix86}

%description
A Haskell binding to the X11 graphics library. The binding is a direct
translation of the C binding; for documentation of these calls, refer to "The
Xlib Programming Manual", available online at <http://tronche.com/gui/x/xlib/>.

%package devel
Summary:        Haskell %{pkg_name} library development files
Requires:       %{name} = %{version}-%{release}
Requires:       ghc-compiler = %{ghc_version}
Requires:       pkgconfig(x11)
Requires:       pkgconfig(x11-xcb)
Requires:       pkgconfig(xext)
Requires:       pkgconfig(xinerama)
Requires:       pkgconfig(xrandr)
Requires:       pkgconfig(xscrnsaver)
Requires(post): ghc-compiler = %{ghc_version}
Requires(postun): ghc-compiler = %{ghc_version}

%description devel
This package provides the Haskell %{pkg_name} library development files.

%package -n ghc-%{pkg_name}-doc
Summary:        Haskell %{pkg_name} library documentation
Requires:       ghc-filesystem
BuildArch:      noarch

%description -n ghc-%{pkg_name}-doc
This package provides the Haskell %{pkg_name} library documentation.

%package -n ghc-%{pkg_name}-prof
Summary:        Haskell %{pkg_name} profiling library
Requires:       ghc-%{pkg_name}-devel = %{version}-%{release}
Supplements:    (ghc-%{pkg_name}-devel and ghc-prof)

%description -n ghc-%{pkg_name}-prof
This package provides the Haskell %{pkg_name} profiling library.

%prep
%autosetup -n %{pkg_name}-%{version}
cp -p %{SOURCE1} %{pkg_name}.cabal
# Override Setup.hs to strip unsupported GHC flags passed by macros
cat > Setup.hs << 'EOF'
import Distribution.Simple (defaultMainWithHooks, autoconfUserHooks)
import System.Environment (getArgs, withArgs)
import Data.List (isPrefixOf)

main :: IO ()
main = do
  args <- getArgs
  let args' = filterGhcOptions args
  withArgs args' $ defaultMainWithHooks autoconfUserHooks

-- Filter out unsupported GHC flags from the command line arguments
filterGhcOptions :: [String] -> [String]
filterGhcOptions = go
  where
    go (a:b:xs)
      | a == "--ghc-options" =
          case sanitizeOpts b of
            Nothing    -> go xs
            Just b'    -> a : b' : go xs
      | otherwise = transformOne a : go (b:xs)
    go [a] =
      case transformOne a of
        "" -> []
        x   -> [x]
    go [] = []

    transformOne :: String -> String
    transformOne s
      | "--ghc-options=" `isPrefixOf` s =
          case sanitizeOpts (drop (length "--ghc-options=") s) of
            Nothing   -> ""
            Just opts -> "--ghc-options=" ++ opts
      | s == "-fobject-determinism" = ""
      | otherwise = s

    sanitizeOpts :: String -> Maybe String
    sanitizeOpts opts =
      let ws = words opts
          ws' = filter (/= "-fobject-determinism") ws
          res = unwords ws'
      in if null res then Nothing else Just res
EOF

%build
%ghc_lib_build

%install
%ghc_lib_install

%post devel
%ghc_pkg_recache

%postun devel
%ghc_pkg_recache

%files -f %{name}.files
%license LICENSE

%files devel -f %{name}-devel.files
%doc CHANGES.md README.md

%files -n ghc-%{pkg_name}-doc -f ghc-%{pkg_name}-doc.files
%license LICENSE

%files -n ghc-%{pkg_name}-prof -f ghc-%{pkg_name}-prof.files

%changelog