Add missing INLINE pragmas

haskell · Aug 22, 2020 · 9453694 · 9453694
1 parent 41bbcf1
commit 9453694
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Data/ByteString/Short/Internal.hs b/Data/ByteString/Short/Internal.hs
@@ -225,6 +225,7 @@ indexMaybe :: ShortByteString -> Int -> Maybe Word8
 indexMaybe sbs i
   | i >= 0 && i < length sbs = Just $! unsafeIndex sbs i
   | otherwise                = Nothing
+{-# INLINE indexMaybe #-}
 
 -- | /O(1)/ 'ShortByteString' index, starting from 0, that returns 'Just' if:
 --
@@ -233,6 +234,7 @@ indexMaybe sbs i
 -- @since 0.11.0.0
 (!?) :: ShortByteString -> Int -> Maybe Word8
 (!?) = indexMaybe
+{-# INLINE (!?) #-}
 
 unsafeIndex :: ShortByteString -> Int -> Word8
 unsafeIndex sbs = indexWord8Array (asBA sbs)