@@ -344,6 +344,7 @@ class Unbox a where
344 -- | Get the size. Size cannot be zero.
344 -- | Get the size. Size cannot be zero.
345 sizeOf :: Proxy a -> Int
345 sizeOf :: Proxy a -> Int
347+ {-# INLINE sizeOf #-}
347 default sizeOf :: (SizeOfRep (Rep a)) => Proxy a -> Int
348 default sizeOf :: (SizeOfRep (Rep a)) => Proxy a -> Int
348 sizeOf = genericSizeOf
349 sizeOf = genericSizeOf
@@ -354,6 +355,7 @@ class Unbox a where
354 -- of the array, the caller must not assume that.
355 -- of the array, the caller must not assume that.
355 peekByteIndex :: Int -> MutableByteArray -> IO a
356 peekByteIndex :: Int -> MutableByteArray -> IO a
358+ {-# INLINE peekByteIndex #-}
357 default peekByteIndex :: (Generic a, PeekRep (Rep a)) =>
359 default peekByteIndex :: (Generic a, PeekRep (Rep a)) =>
358 Int -> MutableByteArray -> IO a
360 Int -> MutableByteArray -> IO a
359 peekByteIndex i arr = genericPeekByteIndex arr i
361 peekByteIndex i arr = genericPeekByteIndex arr i
@@ -365,6 +367,7 @@ class Unbox a where
365 -- of the array, the caller must not assume that.
367 -- of the array, the caller must not assume that.
366 pokeByteIndex :: Int -> MutableByteArray -> a -> IO ()
368 pokeByteIndex :: Int -> MutableByteArray -> a -> IO ()
370+ {-# INLINE pokeByteIndex #-}
368 default pokeByteIndex :: (Generic a, PokeRep (Rep a)) =>
371 default pokeByteIndex :: (Generic a, PokeRep (Rep a)) =>
369 Int -> MutableByteArray -> a -> IO ()
372 Int -> MutableByteArray -> a -> IO ()
370 pokeByteIndex i arr = genericPokeByteIndex arr i
373 pokeByteIndex i arr = genericPokeByteIndex arr i