[Git][haskell-team/DHG_packages][master] xeno: Fix FTBFS on 32-bit arches

[Scott Talbert (@swt2c)]

Scott Talbert pushed to branch master at Debian Haskell Group / DHG_packages


Commits:
7025657c by Scott Talbert at 2025-03-31T20:18:24-04:00
xeno: Fix FTBFS on 32-bit arches

- - - - -


3 changed files:

- p/haskell-xeno/debian/changelog
- + p/haskell-xeno/debian/patches/fix-32bit
- p/haskell-xeno/debian/patches/series


Changes:

=====================================
p/haskell-xeno/debian/changelog
=====================================
@@ -1,3 +1,9 @@
+haskell-xeno (0.6-4) unstable; urgency=medium
+
+  * Fix FTBFS on 32-bit arches
+
+ -- Scott Talbert <swt at techie.net>  Mon, 31 Mar 2025 20:17:52 -0400
+
 haskell-xeno (0.6-3) unstable; urgency=medium
 
   * Disable RTS -N to fix build on 32-bit arches


=====================================
p/haskell-xeno/debian/patches/fix-32bit
=====================================
@@ -0,0 +1,23 @@
+Description: Fix FTBFS on 32-bit arches (overflow error)
+Author: Scott Talbert
+Forwarded: no
+
+--- a/src/Xeno/SAX.hs
++++ b/src/Xeno/SAX.hs
+@@ -29,6 +29,7 @@ import qualified Data.ByteString.Char8 a
+ import qualified Data.ByteString.Unsafe as SU
+ import           Data.Char (isSpace)
+ import           Data.Functor.Identity (Identity(..))
++import           Data.Int (Int64)
+ import           Data.Semigroup ()
+ import           Data.STRef (newSTRef, modifySTRef', readSTRef)
+ import           Data.Word (Word8, Word64)
+@@ -402,7 +403,7 @@ elemIndexFrom c str offset = fmap (+ off
+ -- Character types
+ 
+ isSpaceChar :: Word8 -> Bool
+-isSpaceChar = testBit (0b100000000000000000010011000000000 :: Int) . fromIntegral
++isSpaceChar = testBit (0b100000000000000000010011000000000 :: Int64) . fromIntegral
+ --                       |                  |  ||  bits:
+ --                       |                  |  |+-- 9
+ --                       |                  |  +--- 10


=====================================
p/haskell-xeno/debian/patches/series
=====================================
@@ -1 +1,2 @@
 no-rts-n
+fix-32bit



View it on GitLab: https://salsa.debian.org/haskell-team/DHG_packages/-/commit/7025657ccf369fbbcafa57141dcaef94ff42f3d5

-- 
View it on GitLab: https://salsa.debian.org/haskell-team/DHG_packages/-/commit/7025657ccf369fbbcafa57141dcaef94ff42f3d5
You're receiving this email because of your account on salsa.debian.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://alioth-lists.debian.net/pipermail/pkg-haskell-commits/attachments/20250401/e68a70f6/attachment-0001.htm>