fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: fix build

Browse Source
This commit is contained in:
Gregor Kleen 2019-09-26 13:37:38 +02:00
parent a94eb5394e
commit d13ace4edd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Jobs.hs
View File

@ -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