Fix documentation

Data/ByteString.hs

@@ -1098,7 +1098,7 @@ index ps n
     | otherwise      = ps `unsafeIndex` n
 {-# INLINE index #-}
 
--- | /O(1)/ 'ByteString' index, starting from 0, that returns 'Nothing' if:
+-- | /O(1)/ 'ByteString' index, starting from 0, that returns 'Just' if:
 --
 -- > 0 <= n < length bs
 --

Data/ByteString/Char8.hs

@@ -645,7 +645,7 @@ index :: ByteString -> Int -> Char
 index = (w2c .) . B.index
 {-# INLINE index #-}
 
--- | /O(1)/ 'ByteString' index, starting from 0, that returns 'Nothing' if:
+-- | /O(1)/ 'ByteString' index, starting from 0, that returns 'Just' if:
 --
 -- > 0 <= n < length bs
 --

Data/ByteString/Lazy.hs

@@ -896,15 +896,15 @@ index cs0 i         = index' cs0 i
               index' cs (n - fromIntegral (S.length c))
           | otherwise       = S.unsafeIndex c (fromIntegral n)
 
--- | /O(c)/ 'ByteString' index, starting from 0, that returns 'Nothing' if:
+-- | /O(c)/ 'ByteString' index, starting from 0, that returns 'Just' if:
 --
 -- > 0 <= n < length bs
 --
 -- @since 0.10.10.0
 indexMaybe :: ByteString -> Int64 -> Maybe Word8
 indexMaybe _ i | i < 0 = Nothing
 indexMaybe cs0 i       = index' cs0 i
-  where index' Empty b      = Nothing
+  where index' Empty _ = Nothing
         index' (Chunk c cs) n
           | n >= fromIntegral (S.length c) =
               index' cs (n - fromIntegral (S.length c))

Data/ByteString/Lazy/Char8.hs

@@ -528,14 +528,14 @@ index :: ByteString -> Int64 -> Char
 index = (w2c .) . L.index
 {-# INLINE index #-}
 
--- | /O(1)/ 'ByteString' index, starting from 0, that returns 'Nothing' if:
+-- | /O(1)/ 'ByteString' index, starting from 0, that returns 'Just' if:
 --
 -- > 0 <= n < length bs
 --
 -- @since 0.10.10.0
 indexMaybe :: ByteString -> Int64 -> Maybe Char
 indexMaybe = ((fmap w2c) .) . L.indexMaybe
-{-# indexMaybe #-}
+{-# INLINE indexMaybe #-}
 
 -- | /O(n)/ The 'elemIndex' function returns the index of the first
 -- element in the given 'ByteString' which is equal (by memchr) to the

tests/Properties.hs

@@ -788,7 +788,7 @@ prop_index_C (String8 xs) =
     forAll indices $ \i -> (xs !! i) == C.pack xs `C.index` (fromIntegral i)
   where indices = choose (0, length xs -1)
 
--- | Test 'indexMaybe for Lazy and Strict 'ByteString's.
+-- | Test 'indexMaybe' for Lazy and Strict 'ByteString's.
 --   If we are testing within the bounds it should return a 'Just' value.
 --   If we are testing outside of the bounds it should return a 'Nothing' value.
 prop_indexMaybe_Just_L xs =