Fix for indexInt8OffAddr# returning sized type in next GHC

Include type signature to `toInt` for sake of quite old GHCs.
haskell · Jan 26, 2021 · 9b5b4a9 · 9b5b4a9
1 parent e3253fc
commit 9b5b4a9
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/containers/src/Data/IntSet/Internal.hs b/containers/src/Data/IntSet/Internal.hs
@@ -221,6 +221,7 @@ import Text.Read
 
 #if __GLASGOW_HASKELL__
 import qualified GHC.Exts
+import qualified GHC.Int
 #endif
 
 import qualified Data.Foldable as Foldable
@@ -1642,7 +1643,7 @@ highestBitSet x = WORD_SIZE_IN_BITS - 1 - countLeadingZeros x
 ----------------------------------------------------------------------}
 
 indexOfTheOnlyBit bitmask =
-  GHC.Exts.I# (lsbArray `GHC.Exts.indexInt8OffAddr#` unboxInt (intFromNat ((bitmask * magic) `shiftRL` offset)))
+  fromIntegral (GHC.Int.I8# (lsbArray `GHC.Exts.indexInt8OffAddr#` unboxInt (intFromNat ((bitmask * magic) `shiftRL` offset))))
   where unboxInt (GHC.Exts.I# i) = i
 #if WORD_SIZE_IN_BITS==32
         magic = 0x077CB531