Skip to content

Commit

Permalink
let hlint run without erroring out.
Browse files Browse the repository at this point in the history
  • Loading branch information
julialongtin committed Dec 23, 2023
1 parent 2aed344 commit b347216
Showing 1 changed file with 3 additions and 0 deletions.
3 changes: 3 additions & 0 deletions src/Data/Bits/Floating/Prim.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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 (
Expand All @@ -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#)
Expand All @@ -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#
Expand Down

0 comments on commit b347216

Please sign in to comment.