async-refresh 0.1.7 → 0.2.0

raw patch · 4 files changed

+6/−6 lines, 4 files

Files

• async-refresh.cabal +1/−1
• src/Control/Concurrent/Async/Refresh.hs +1/−1
• src/Control/Concurrent/Async/Refresh/Lenses.hs +2/−2
• src/Control/Concurrent/Async/Refresh/Types.hs +2/−2

@@ -1,5 +1,5 @@ name:                async-refresh-version:             0.1.7+version:             0.2.0 synopsis:            Package implementing core logic for refreshing of expiring data. description:         This package can be used for refreshing of expiring data according                      to a user-provided action. Using callbacks, the user can decide

@@ -138,7 +138,7 @@ asyncRefreshThread conf = forever $   tryAny (asyncRefreshDo conf) >>= \case     Right res -> do-      let delay = fromMaybe (conf ^. Lens.defaultInterval) (refreshTryNext res)+      let delay = fromMaybe (conf ^. Lens.defaultInterval) (refreshExpiry res)       logDebugN $         sformat ("Refreshing done for refreshing request '" % stext % "'")                 (asyncRefreshConfGetLabel conf)

@@ -4,8 +4,6 @@ {-# LANGUAGE TemplateHaskell        #-} {-# LANGUAGE TypeSynonymInstances   #-} -module Control.Concurrent.Async.Refresh.Lenses where- {-| Module      : Control.Concurrent.Async.Refresh.Lenses Description : This module defines lenses used within the async-refresh package.@@ -15,6 +13,8 @@ Stability   : experimental Portability : POSIX -}++module Control.Concurrent.Async.Refresh.Lenses where  import           Control.Concurrent.Async.Refresh.Types import           Control.Lens

@@ -31,6 +31,6 @@  -- | Data type returned by async refresh actions. data RefreshResult a =-  RefreshResult { refreshResult  :: a         -- ^ Actual result.-                , refreshTryNext :: Maybe Int -- ^ In milliseconds.+  RefreshResult { refreshResult :: a         -- ^ Actual result.+                , refreshExpiry :: Maybe Int -- ^ In milliseconds.                 } deriving (Show)