periodic-client 1.1.7.1 → 1.1.7.2
raw patch · 3 files changed
+6/−6 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
periodic-client.cabal view
@@ -1,5 +1,5 @@ name: periodic-client-version: 1.1.7.1+version: 1.1.7.2 synopsis: Periodic task system haskell client. description: Periodic task system haskell client library. homepage: https://github.com/Lupino/haskell-periodic/tree/master/periodic-client#readme@@ -8,7 +8,7 @@ author: Li Meng Jun maintainer: lmjubuntu@gmail.com copyright: MIT-category: value+category: System,Web build-type: Simple extra-source-files: README.md cabal-version: >=1.10
src/Periodic/Trans/Client.hs view
@@ -31,7 +31,7 @@ import qualified Metro.Conn as Conn import Metro.Node (NodeMode (..), SessionMode (..), initEnv1, request,- setDefaultSessionTimeout,+ setDefaultSessionTimeout1, setNodeMode, setSessionMode, startNodeT, withSessionT) import Metro.Session (send)@@ -67,6 +67,7 @@ _ -> "" clientEnv <- initEnv1 mapEnv connEnv () (Nid nid) sessionGen+ setDefaultSessionTimeout1 clientEnv 100 runClientT clientEnv $ do void . async $ forever $ do@@ -79,7 +80,6 @@ where mapEnv = setNodeMode Multi . setSessionMode SingleAction- . setDefaultSessionTimeout 100 dropFunc :: (MonadUnliftIO m, Transport tp)
src/Periodic/Trans/Worker.hs view
@@ -35,7 +35,7 @@ import Metro.Node (NodeMode (..), SessionMode (..), initEnv1, newSessionEnv, nextSessionId, runSessionT_,- setDefaultSessionTimeout,+ setDefaultSessionTimeout1, setNodeMode, setSessionMode, startNodeT_, withEnv, withSessionT)@@ -106,6 +106,7 @@ taskSize <- newTVarIO 0 jobEnv1 <- initEnv1 mapEnv connEnv Nothing (Nid nid) sessionGen+ setDefaultSessionTimeout1 jobEnv1 100 let wEnv = WorkerEnv {..} @@ -122,7 +123,6 @@ where mapEnv = setNodeMode Multi . setSessionMode SingleAction- . setDefaultSessionTimeout 100 filterPacketM :: MonadIO m => JobList -> Packet ServerCommand -> m Bool filterPacketM jl rpkt = do