9ec3ff57c7
The src points to the obsidiansystems repo as it has the ghcjs ported from 8.10.5 to 8.10.7, and a bunch of other fixes (#812, #811, #809) (cherry picked from commit ba25b274f4bb0240a8ffa71e41b55712930af3d8) Modified the stm_2_5_0_1 -> stm_2_5_0_0
15 lines
648 B
Diff
15 lines
648 B
Diff
diff --git a/Data/Vector/Storable/Mutable.hs b/Data/Vector/Storable/Mutable.hs
|
|
index 8b538bc..2b74fce 100644
|
|
--- a/Data/Vector/Storable/Mutable.hs
|
|
+++ b/Data/Vector/Storable/Mutable.hs
|
|
@@ -197,7 +197,9 @@ storableSet (MVector n fp) x
|
|
1 -> storableSetAsPrim n fp x (undefined :: Word8)
|
|
2 -> storableSetAsPrim n fp x (undefined :: Word16)
|
|
4 -> storableSetAsPrim n fp x (undefined :: Word32)
|
|
+#if !defined(ghcjs_HOST_OS)
|
|
8 -> storableSetAsPrim n fp x (undefined :: Word64)
|
|
+#endif
|
|
_ -> unsafeWithForeignPtr fp $ \p -> do
|
|
poke p x
|
|
|