Changed INLINEABLEs with INLINEs
authorDaniel Díaz <dhelta.diaz@gmail.com>
Tue, 31 May 2016 17:11:40 +0000 (13:11 -0400)
committerDaniel Díaz <dhelta.diaz@gmail.com>
Tue, 31 May 2016 17:11:40 +0000 (13:11 -0400)
src/Data/Binary/FloatCast.hs

index aff3a3d..31ed0a0 100644 (file)
@@ -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 #-}