From b347216ecb21c004a5f448d60203f30e6d2bf739 Mon Sep 17 00:00:00 2001
From: Julia Longtin <julia.longtin@gmail.com>
Date: Sat, 23 Dec 2023 14:14:12 +0000
Subject: [PATCH] let hlint run without erroring out.

---
 src/Data/Bits/Floating/Prim.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Data/Bits/Floating/Prim.hs b/src/Data/Bits/Floating/Prim.hs
index cb0a4ff..f4e7dd4 100644
--- a/src/Data/Bits/Floating/Prim.hs
+++ b/src/Data/Bits/Floating/Prim.hs
@@ -17,6 +17,7 @@
 {-# LANGUAGE UnliftedFFITypes         #-}
 {-# LANGUAGE CPP                      #-}
 
+-- Note: HLint fails to find this, and will always warn.
 #include "MachDeps.h"
 
 module Data.Bits.Floating.Prim (
@@ -31,6 +32,7 @@ import Prelude ()
 import GHC.Exts (Double#, Double(D#), Float#, Float(F#))
 import GHC.Word (Word32(W32#), Word64(W64#))
 
+#if defined(WORD_SIZE_IN_BITS)
 #if WORD_SIZE_IN_BITS == 64 && MIN_VERSION_base(4,17,0)
 -- The name of Word# changed to Word64# in base 4.17.0 (GHC 9.4.1)
 import GHC.Exts (Word64#, Word32#)
@@ -52,6 +54,7 @@ import GHC.Exts (Word32#)
 #else
 #error non-X86_64 architectures not supported
 #endif
+#endif
 
 foreign import prim "double2WordBwzh"
     double2WordBitwise# :: Double# -> WORD64#