servant-auth-token-rocksdb 0.4.2.1 → 0.4.3.0

raw patch · 4 files changed

+14/−9 lines, 4 filesdep ~vector

Dependency ranges changed: vector

Files

CHANGELOG.md +5/−0
servant-auth-token-rocksdb.cabal +2/−2
src/Servant/Server/Auth/Token/RocksDB.hs +2/−2
src/Servant/Server/Auth/Token/RocksDB/Schema.hs +5/−5

CHANGELOG.md view

@@ -1,3 +1,8 @@+0.4.3.0+=======++* Push upper bounds for `vector`.+ 0.4.2.1 =======

servant-auth-token-rocksdb.cabal view

@@ -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

src/Servant/Server/Auth/Token/RocksDB.hs view

@@ -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 #-}

src/Servant/Server/Auth/Token/RocksDB/Schema.hs view

@@ -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)