[commit: packages/binary] master: Changed INLINEABLEs with INLINEs (976468b)
git at git.haskell.org
git at git.haskell.org
Sat Feb 4 21:17:50 UTC 2017
Repository : ssh://git@git.haskell.org/binary
On branch : master
Link : http://git.haskell.org/packages/binary.git/commitdiff/976468b71a4f45640e4f013223a7d2ea97eaaf1b
>---------------------------------------------------------------
commit 976468b71a4f45640e4f013223a7d2ea97eaaf1b
Author: Daniel Díaz <dhelta.diaz at gmail.com>
Date: Tue May 31 13:11:40 2016 -0400
Changed INLINEABLEs with INLINEs
>---------------------------------------------------------------
976468b71a4f45640e4f013223a7d2ea97eaaf1b
src/Data/Binary/FloatCast.hs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/Data/Binary/FloatCast.hs b/src/Data/Binary/FloatCast.hs
index aff3a3d..31ed0a0 100644
--- a/src/Data/Binary/FloatCast.hs
+++ b/src/Data/Binary/FloatCast.hs
@@ -24,28 +24,28 @@ import GHC.ST (runST, ST)
floatToWord :: Float -> Word32
floatToWord x = runST (cast x)
-{-# INLINEABLE floatToWord #-}
+{-# INLINE floatToWord #-}
-- | Reinterpret-casts a `Word32` to a `Float`.
wordToFloat :: Word32 -> Float
wordToFloat x = runST (cast x)
-{-# INLINEABLE wordToFloat #-}
+{-# INLINE wordToFloat #-}
-- | Reinterpret-casts a `Double` to a `Word64`.
doubleToWord :: Double -> Word64
doubleToWord x = runST (cast x)
-{-# INLINEABLE doubleToWord #-}
+{-# INLINE doubleToWord #-}
-- | Reinterpret-casts a `Word64` to a `Double`.
wordToDouble :: Word64 -> Double
wordToDouble x = runST (cast x)
-{-# INLINEABLE wordToDouble #-}
+{-# INLINE wordToDouble #-}
{-# INLINE cast #-}
More information about the ghc-commits
mailing list