1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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
|
