fp-ieee: Enable FMA primitive on GHC 9.8.3

minoki · Nov 27, 2024 · cf756bf · cf756bf
1 parent c52769b
commit cf756bf
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/fp-ieee/src/Numeric/Floating/IEEE/Internal/FMA.hs b/fp-ieee/src/Numeric/Floating/IEEE/Internal/FMA.hs
@@ -159,10 +159,9 @@ twoProduct_nonscaling a b =
 twoProductFloat :: Float -> Float -> (Float, Float)
 twoProductDouble :: Double -> Double -> (Double, Double)
 
-#if defined(HAS_FMA_PRIM) && MIN_VERSION_GLASGOW_HASKELL(9, 10, 1, 0)
+#if defined(HAS_FMA_PRIM) && MIN_VERSION_GLASGOW_HASKELL(9, 8, 3, 0)
 -- GHC 9.8.1 is buggy: https://gitlab.haskell.org/ghc/ghc/-/issues/24160
 -- GHC 9.8.2 is also buggy: https://gitlab.haskell.org/ghc/ghc/-/issues/24496
--- We might use `MIN_VERSION_GLASGOW_HASKELL(9, 8, 3, 0)` once GHC 9.8.3 is released.
 
 twoProductFloat# :: Float# -> Float# -> (# Float#, Float# #)
 twoProductFloat# x y = let !r = x `timesFloat#` y