diff --git a/src/Jobs.hs b/src/Jobs.hs index 587aa9ac3..a78b8dc39 100644 --- a/src/Jobs.hs +++ b/src/Jobs.hs @@ -154,7 +154,7 @@ manageJobPool foundation@UniWorX{..} unmask = shutdownOnException $ void $ wait actAsync throwM e - unmask (wait actAsync) `catchAll` handleExc + liftIO (unmask $ wait actAsync) `catchAll` handleExc num :: Int num = fromIntegral $ foundation ^. _appJobWorkers