From 6896f29e93f4d135b671f6adb4472ccb6ca8aa0d Mon Sep 17 00:00:00 2001 From: Julia Longtin Date: Fri, 15 Dec 2023 01:16:19 +0000 Subject: [PATCH] try Word32# for base 4.17. --- src/Data/Bits/Floating/Prim.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Data/Bits/Floating/Prim.hs b/src/Data/Bits/Floating/Prim.hs index 474b145..4d7aae8 100644 --- a/src/Data/Bits/Floating/Prim.hs +++ b/src/Data/Bits/Floating/Prim.hs @@ -36,12 +36,12 @@ import GHC.Exts (Word64#, Word32#) #elif WORD_SIZE_IN_BITS == 64 import GHC.Exts (Word#) #define WORD64 Word -#if MIN_VERSION_base(4,15,0) -#define WORD32 Word -#else +-- #if MIN_VERSION_base(4,15,0) +-- #define WORD32 Word +-- #else import GHC.Exts (Word32#) #define WORD32 Word32 -#endif +-- #endif #else #error non-X86_64 architectures not supported #endif