diff options
Diffstat (limited to 'testsuite/tests/stranal/sigs/T8598.hs')
| -rw-r--r-- | testsuite/tests/stranal/sigs/T8598.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/testsuite/tests/stranal/sigs/T8598.hs b/testsuite/tests/stranal/sigs/T8598.hs index 1e0ca6f2b7..c636ae5ea3 100644 --- a/testsuite/tests/stranal/sigs/T8598.hs +++ b/testsuite/tests/stranal/sigs/T8598.hs @@ -3,14 +3,14 @@ module T8598(fun) where import GHC.Float (Double(..)) -import GHC.Integer (decodeDoubleInteger, encodeDoubleInteger) +import GHC.Num.Integer (integerDecodeDouble#, integerEncodeDouble#) -- Float.scaleFloat for Doubles, slightly simplified fun :: Double -> Double fun x | isFix = x | otherwise = case x of - (D# x#) -> case decodeDoubleInteger x# of - (# i, j #) -> D# (encodeDoubleInteger i j) + (D# x#) -> case integerDecodeDouble# x# of + (# i, j #) -> D# (integerEncodeDouble# i j) where isFix = isDoubleFinite x == 0 |