diff --git a/src/Data/Vector/Algorithms/Common.hs b/src/Data/Vector/Algorithms/Common.hs
index 0ca2c3c..acac736 100644
--- a/src/Data/Vector/Algorithms/Common.hs
+++ b/src/Data/Vector/Algorithms/Common.hs
@@ -115,7 +115,7 @@ resizeVector !src !sz = do
   pure dst
 {-# inline resizeVector #-}
 
--- Used inernally in resizeVector: copy a vector from a larger to
+-- Used internally in resizeVector: copy a vector from a larger to
 -- smaller vector. Should not be used if the source vector
 -- is smaller than the target vector.
 copyToSmaller
diff --git a/src/Data/Vector/Algorithms/Search.hs b/src/Data/Vector/Algorithms/Search.hs
index 8e3b64e..10398b8 100644
--- a/src/Data/Vector/Algorithms/Search.hs
+++ b/src/Data/Vector/Algorithms/Search.hs
@@ -119,7 +119,7 @@ binarySearchRByBounds cmp vec e = binarySearchPBounds p vec
  where p e' = case cmp e' e of GT -> True ; _ -> False
 {-# INLINE binarySearchRByBounds #-}
 
--- | Given a predicate that is guaraneteed to be monotone on the given vector,
+-- | Given a predicate that is guaranteed to be monotone on the given vector,
 -- finds the first index at which the predicate returns True, or the length of
 -- the array if the predicate is false for the entire array.
 binarySearchP :: (PrimMonad m, MVector v e) => (e -> Bool) -> v (PrimState m) e -> m Int