diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,8 @@
+0.4.3.0
+=======
+
+* Push upper bounds for `vector`.
+
 0.4.2.1
 =======
 
diff --git a/servant-auth-token-rocksdb.cabal b/servant-auth-token-rocksdb.cabal
--- a/servant-auth-token-rocksdb.cabal
+++ b/servant-auth-token-rocksdb.cabal
@@ -1,5 +1,5 @@
 name:                servant-auth-token-rocksdb
-version:             0.4.2.1
+version:             0.4.3.0
 synopsis:            RocksDB backend for servant-auth-token server
 description:         Please see README.md
 homepage:            https://github.com/ncrashed/servant-auth-token#readme
@@ -43,7 +43,7 @@
     , transformers            >= 0.4    && < 0.6
     , transformers-base       >= 0.4    && < 0.5
     , uuid                    >= 1.3    && < 1.4
-    , vector                  >= 0.11   && < 0.12
+    , vector                  >= 0.11   && < 0.13
   default-language:    Haskell2010
   default-extensions:
     BangPatterns
diff --git a/src/Servant/Server/Auth/Token/RocksDB.hs b/src/Servant/Server/Auth/Token/RocksDB.hs
--- a/src/Servant/Server/Auth/Token/RocksDB.hs
+++ b/src/Servant/Server/Auth/Token/RocksDB.hs
@@ -79,7 +79,7 @@
   insertSingleUseCode = liftEnv . S.insertSingleUseCode
   setSingleUseCodeUsed i mt = liftEnv $ S.setSingleUseCodeUsed i mt
   getUnusedCode c i t = liftEnv $ S.getUnusedCode c i t
-  invalidatePermamentCodes i t = liftEnv $ S.invalidatePermamentCodes i t
+  invalidatePermanentCodes i t = liftEnv $ S.invalidatePermanentCodes i t
   selectLastRestoreCode i t = liftEnv $ S.selectLastRestoreCode i t
   insertUserRestore = liftEnv . S.insertUserRestore
   findRestoreCode i rc t = liftEnv $ S.findRestoreCode i rc t
@@ -117,7 +117,7 @@
   {-# INLINE insertSingleUseCode #-}
   {-# INLINE setSingleUseCodeUsed #-}
   {-# INLINE getUnusedCode #-}
-  {-# INLINE invalidatePermamentCodes #-}
+  {-# INLINE invalidatePermanentCodes #-}
   {-# INLINE selectLastRestoreCode #-}
   {-# INLINE insertUserRestore #-}
   {-# INLINE findRestoreCode #-}
diff --git a/src/Servant/Server/Auth/Token/RocksDB/Schema.hs b/src/Servant/Server/Auth/Token/RocksDB/Schema.hs
--- a/src/Servant/Server/Auth/Token/RocksDB/Schema.hs
+++ b/src/Servant/Server/Auth/Token/RocksDB/Schema.hs
@@ -433,18 +433,18 @@
       && isNothing (userSingleUseCodeUsed usc)
       && (isNothing (userSingleUseCodeExpire usc) || userSingleUseCodeExpire usc >= Just t)
 
--- | Invalidate all permament codes for user and set use time for them
-invalidatePermamentCodes :: (MonadResource m, MonadMask m) => UserImplId -> UTCTime -> RocksDBEnv -> m ()
-invalidatePermamentCodes i t db = do
+-- | Invalidate all permanent codes for user and set use time for them
+invalidatePermanentCodes :: (MonadResource m, MonadMask m) => UserImplId -> UTCTime -> RocksDBEnv -> m ()
+invalidatePermanentCodes i t db = do
   cs <- view modelUserSingleUseCodes <$> loadModel db
   forM_ (F.toList cs) $ \cid -> do
     mc <- load db cid
     case mc of
-      Just usc | isPermament usc -> modify db cid invalidate
+      Just usc | isPermanent usc -> modify db cid invalidate
       _ -> return ()
   where
     invalidate su = su { userSingleUseCodeUsed = Just t }
-    isPermament usc =
+    isPermanent usc =
          userSingleUseCodeUser usc == i
       && isNothing (userSingleUseCodeUsed usc)
       && isNothing (userSingleUseCodeExpire usc)