async-refresh-tokens 0.3.0.0 → 0.3.0.1

raw patch · 2 files changed

+9/−2 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• async-refresh-tokens.cabal +1/−1
• src/Control/Concurrent/Async/Refresh/Tokens.hs +8/−1

@@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack  name:           async-refresh-tokens-version:        0.3.0.0+version:        0.3.0.1 synopsis:       Package implementing core logic for refreshing of expiring access tokens description:    This package can be used for renewal of expiring access tokens according to user-provided actions. Tokens will be stored in a transactional variable (TVar). category:       Control

@@ -94,8 +94,15 @@ tokenStoreCallback _ (Left exn) =   logErrorN $ sformat ("Token refresh action failed: " % stext) (tshow exn) tokenStoreCallback store res@(Right t) = do-  logDebugN $ sformat ("Token refresh action succeeded: " % stext) (tshow t)+  logDebugN $+    sformat ("Token refresh action succeeded: " % stext) (tshow (maskRefreshResult t))   atomically $ writeTVar store (refreshResult <$> res)++maskRefreshResult :: RefreshResult (Token t) -> RefreshResult (Token t)+maskRefreshResult res = res { refreshResult = maskedToken }++maskedToken :: Token t+maskedToken = Token { unToken = "XXXXXXXXXXXXXXXX" }  -- | Create a new empty token store for the provided token type. newEmptyTokenStore :: (MonadIO m, IsToken t)