yam-job 0.1.9 → 0.1.10

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• src/Yam/Job.hs +2/−2
• yam-job.cabal +1/−1

@@ -27,7 +27,7 @@ keyJob :: Text keyJob = "Extension.Job" -instance (MonadIO m, MonadThrow m) => MonadJob (AppM m) where+instance (MonadIO m, MonadMask m) => MonadJob (AppM m) where   yamJobs = getExtensionOrDefault [] keyJob   killJobs = yamJobs >>= mapM_ go >> setExtension keyJob ([] :: [(ThreadId, YamJob)])     where go (tid,job) = do infoLn $ "Stop job " <> name (job :: YamJob) <> "..."@@ -42,7 +42,7 @@                            runAppM context $ withLoggerName (reqId <> " job." <> nm)                                            $ do infoLn $ "Start job " <> nm                                                 func job-                                                infoLn $ "End job " <> nm+                                                infoLn ("End job " <> nm)     jobs <- yamJobs     setExtension keyJob ((thread,job):jobs) 

@@ -1,5 +1,5 @@ name:                yam-job-version:             0.1.9+version:             0.1.10 description:         Job Module for Yam homepage:            https://github.com/leptonyu/yam/tree/master/yam-job#readme license:             BSD3