Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-vty-unix for openSUSE:Factory checked in at 2026-06-22 17:44:12 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-vty-unix (Old) and /work/SRC/openSUSE:Factory/.ghc-vty-unix.new.1956 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-vty-unix" Mon Jun 22 17:44:12 2026 rev:2 rq:1361106 version:0.3.0.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-vty-unix/ghc-vty-unix.changes 2024-01-10 21:51:28.142381365 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-vty-unix.new.1956/ghc-vty-unix.changes 2026-06-22 17:44:44.433936176 +0200 @@ -1,0 +2,9 @@ +Mon Jun 15 02:33:34 UTC 2026 - Peter Simons <[email protected]> + +- Update vty-unix to version 0.3.0.0. + Upstream has edited the change log file since the last release in + a non-trivial way, i.e. they did more than just add a new entry + at the top. You can review the file at: + http://hackage.haskell.org/package/vty-unix-0.3.0.0/src/CHANGELOG.md + +------------------------------------------------------------------- Old: ---- vty-unix-0.2.0.0.tar.gz New: ---- vty-unix-0.3.0.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-vty-unix.spec ++++++ --- /var/tmp/diff_new_pack.uavKWW/_old 2026-06-22 17:44:45.121960290 +0200 +++ /var/tmp/diff_new_pack.uavKWW/_new 2026-06-22 17:44:45.125960430 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-vty-unix # -# Copyright (c) 2023 SUSE LLC +# Copyright (c) 2026 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -19,7 +19,7 @@ %global pkg_name vty-unix %global pkgver %{pkg_name}-%{version} Name: ghc-%{pkg_name} -Version: 0.2.0.0 +Version: 0.3.0.0 Release: 0 Summary: Unix backend for Vty License: BSD-3-Clause ++++++ vty-unix-0.2.0.0.tar.gz -> vty-unix-0.3.0.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/vty-unix-0.2.0.0/CHANGELOG.md new/vty-unix-0.3.0.0/CHANGELOG.md --- old/vty-unix-0.2.0.0/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 +++ new/vty-unix-0.3.0.0/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 @@ -1,8 +1,19 @@ +0.3.0.0 +======= + +* Added support in `Input.Mouse` for parsing horizontal scrolling inputs + to work with Vty 6.6. +* Improved the `vty-unix-build-width-table` tool (thanks Eric Mertens) + to make it more robust when the terminal fails to recognize the + `getCursorPosition` escape sequence. + 0.2.0.0 ======= API changes: +* The `buildOutput` function in `Graphics.Vty.Platform.Unix.Output` now + takes a new first argument of type `VtyUserConfig`. * The `settingColorMode` field of `UnixSettings` was removed in favor of Vty 6.1's new `configPreferredColorMode` field of the `VtyUserConfig` type. This package now uses that setting if present; otherwise it does diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/vty-unix-0.2.0.0/src/Graphics/Vty/Platform/Unix/Input/Mouse.hs new/vty-unix-0.3.0.0/src/Graphics/Vty/Platform/Unix/Input/Mouse.hs --- old/vty-unix-0.2.0.0/src/Graphics/Vty/Platform/Unix/Input/Mouse.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/vty-unix-0.3.0.0/src/Graphics/Vty/Platform/Unix/Input/Mouse.hs 2001-09-09 03:46:40.000000000 +0200 @@ -83,12 +83,20 @@ rightButton :: Int rightButton = 2 +-- | See https://invisible-island.net/xterm/ctlseqs/ctlseqs.html#h3-Wheel-mice scrollUp :: Int scrollUp = 64 scrollDown :: Int scrollDown = 65 +-- | See https://invisible-island.net/xterm/ctlseqs/ctlseqs.html#h3-Other-buttons +scrollLeft :: Int +scrollLeft = 66 + +scrollRight :: Int +scrollRight = 67 + hasBitSet :: Int -> Int -> Bool hasBitSet val bit = val .&. bit > 0 @@ -113,6 +121,8 @@ , (rightButton, BRight) , (scrollUp, BScrollUp) , (scrollDown, BScrollDown) + , (scrollLeft, BScrollLeft) + , (scrollRight, BScrollRight) ] in case lookup (mods .&. buttonMask) buttonMap of Nothing -> failParse diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/vty-unix-0.2.0.0/tools/BuildWidthTable.hs new/vty-unix-0.3.0.0/tools/BuildWidthTable.hs --- old/vty-unix-0.2.0.0/tools/BuildWidthTable.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/vty-unix-0.3.0.0/tools/BuildWidthTable.hs 2001-09-09 03:46:40.000000000 +0200 @@ -1,18 +1,29 @@ -{-# LANGUAGE ScopedTypeVariables #-} -{-# LANGUAGE CPP #-} -module Main where +module Main (main) where +import Graphics.Vty.UnicodeWidthTable.Main (defaultMain) import System.Console.ANSI (getCursorPosition) -import Text.Printf (printf) -import Graphics.Vty.UnicodeWidthTable.Main (defaultMain) +main :: IO () +main = defaultMain charWidth +-- | The number of times we'll attempt to compute a character's width +-- before defaulting to @1@ and continuing. +attempts :: Int +attempts = 3 + +-- | Experimentally determine the console width of the character. charWidth :: Char -> IO Int -charWidth c = do - printf "\r" - putChar c - Just (_, col) <- getCursorPosition - return col +charWidth = charWidth' 0 -main :: IO () -main = defaultMain charWidth +-- | Helper for 'charWidth' with the number of failed attempts counted. +charWidth' :: Int {- ^ failed attempts -} -> Char -> IO Int +charWidth' n c + | n >= attempts = + do putStrLn ("\rUnable to check: " ++ [c] ++ " (" ++ show c ++ ")") + pure 1 -- fallback default to 1 + | otherwise = + do putStr ['\r', c] + mb <- getCursorPosition + case mb of + Nothing -> charWidth' (n+1) c + Just (_, col) -> pure col diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/vty-unix-0.2.0.0/vty-unix.cabal new/vty-unix-0.3.0.0/vty-unix.cabal --- old/vty-unix-0.2.0.0/vty-unix.cabal 2001-09-09 03:46:40.000000000 +0200 +++ new/vty-unix-0.3.0.0/vty-unix.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,6 +1,6 @@ cabal-version: 3.0 name: vty-unix -version: 0.2.0.0 +version: 0.3.0.0 synopsis: Unix backend for Vty description: This package provides Unix terminal support for Vty. license: BSD-3-Clause @@ -53,7 +53,7 @@ mtl, unix, terminfo, - vty >= 6.1, + vty >= 6.6, deepseq, vector, parsec, @@ -74,6 +74,6 @@ if !impl(ghc >= 8.0) build-depends: semigroups >= 0.16 - build-depends: base, + build-depends: base >= 4.8 && < 5, vty, ansi-terminal
