servant-auth-token-leveldb 0.4.2.1 → 0.5.0.0

raw patch · 4 files changed

+15/−10 lines, 4 filesdep ~servant-auth-tokendep ~vector

Dependency ranges changed: servant-auth-token, vector

Files

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

CHANGELOG.md view

@@ -1,3 +1,8 @@+0.5.0.0+=======++* Breaking changes in `servant-auth-token-0.5.0.0`.+ 0.4.2.0 =======

servant-auth-token-leveldb.cabal view

@@ -1,5 +1,5 @@ name:                servant-auth-token-leveldb-version:             0.4.2.1+version:             0.5.0.0 synopsis:            Leveldb backend for servant-auth-token server description:         Please see README.md homepage:            https://github.com/ncrashed/servant-auth-token#readme@@ -34,7 +34,7 @@     , resourcet               >= 1.1    && < 1.2     , safe                    >= 0.3    && < 0.4     , safecopy-store          >= 0.9    && < 0.10-    , servant-auth-token      >= 0.4    && < 0.5+    , servant-auth-token      >= 0.5    && < 0.6     , servant-auth-token-api  >= 0.4    && < 0.5     , servant-server          >= 0.9    && < 0.12     , store                   >= 0.3    && < 0.5@@ -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/LevelDB.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/LevelDB/Schema.hs view

@@ -432,18 +432,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 -> LevelDBEnv -> 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 -> LevelDBEnv -> 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)