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
|
||
|
|
|