yam-job 0.1.5 → 0.1.6
raw patch · 2 files changed
+4/−4 lines, 2 files
Files
- src/Yam/Job.hs +1/−1
- yam-job.cabal +3/−3
src/Yam/Job.hs view
@@ -27,7 +27,7 @@ keyJob :: Text keyJob = "Extension.Job" -instance MonadIO m => MonadJob (AppM m) where+instance (MonadIO m, MonadThrow 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) <> "..."
yam-job.cabal view
@@ -1,7 +1,7 @@ name: yam-job-version: 0.1.5+version: 0.1.6 description: Job Module for Yam-homepage: https://github.com/leptonyu/yam/yam-job#readme+homepage: https://github.com/leptonyu/yam/tree/master/yam-job#readme license: BSD3 license-file: LICENSE author: Daniel YU@@ -22,4 +22,4 @@ source-repository head type: git- location: https://github.com/leptonyu/yam-job+ location: https://github.com/leptonyu/yam