crypto-token 0.1.1 → 0.1.2

raw patch · 2 files changed

+8/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Crypto/Token.hs +6/−1
• crypto-token.cabal +2/−2

@@ -6,9 +6,10 @@ module Crypto.Token (     -- * Configuration     Config,+    defaultConfig,     interval,     tokenLifetime,-    defaultConfig,+    threadName,      -- * Token manager     TokenManager,@@ -35,6 +36,7 @@ import Data.Word import Foreign.Ptr import Foreign.Storable+import GHC.Conc.Sync (labelThread) import Network.ByteOrder  ----------------------------------------------------------------@@ -48,6 +50,7 @@     -- ^ The interval to generate a new secret and remove the oldest one in seconds.     , tokenLifetime :: Int     -- ^ The token lifetime, that is, tokens can be decrypted in this period.+    , threadName :: String     }     deriving (Eq, Show) @@ -60,6 +63,7 @@     Config         { interval = 1800         , tokenLifetime = 7200+        , threadName = "Crypto token manager"         }  ----------------------------------------------------------------@@ -84,6 +88,7 @@     writeArray arr 0 ent     ref <- I.newIORef 0     tid <- forkIO $ loop arr ref+    labelThread tid threadName     msk <- newHeaderMask     return $ TokenManager msk (readCurrentSecret arr ref) (readSecret arr) tid   where

@@ -1,6 +1,6 @@ cabal-version: >=1.10 name:          crypto-token-version:       0.1.1+version:       0.1.2 license:       BSD3 license-file:  LICENSE maintainer:    Kazu Yamamoto <kazu@iij.ad.jp>@@ -12,7 +12,7 @@  source-repository head     type:     git-    location: git://github.com/kazu-yamamoto/crypto-token+    location: https://github.com/kazu-yamamoto/crypto-token  library     exposed-modules:  Crypto.Token