Fix for machines with 64bit word and base >= 4.17

well-typed · Feb 8, 2023 · 7b94c5a · 7b94c5a
1 parent 4bdc818
commit 7b94c5a
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/cborg/src/Codec/CBOR/Magic.hs b/cborg/src/Codec/CBOR/Magic.hs
@@ -257,11 +257,15 @@ grabWord64 (Ptr ip#) =
 #endif
 
 #if WORD_SIZE_IN_BITS == 64
+#if MIN_VERSION_base(4,17,0)
+-- case taken from Codec.CBOR.Decoding
+    w64 w# = W64# (wordToWord64# (toWord w#))
+#else
     w64 w# = W64# (toWord w#)
+#endif
 #else
     w64 w# = W64# (wordToWord64# (toWord w#))
 #endif
-
 #endif
 
 --------------------------------------------------------------------------------