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

chore: reduce number of workers during testing

Browse Source
This commit is contained in:
Gregor Kleen 2019-09-26 11:00:52 +02:00
parent fb0a237896
commit c553414b38
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/DevelMain.hs
View File

@ -67,7 +67,7 @@ update = do
restartAppInNewThread tidStore = modifyStoredIORef tidStore $ \tid -> do restartAppInNewThread tidStore = modifyStoredIORef tidStore $ \tid -> do
killThread tid killThread tid
withStore doneStore takeMVar withStore doneStore takeMVar
readStore doneStore >>= start withStore doneStore start
-- | Start the server in a separate thread. -- | Start the server in a separate thread.
@ -77,7 +77,7 @@ update = do
(port, site, app) <- getApplicationRepl (port, site, app) <- getApplicationRepl
resourceForkIO $ do resourceForkIO $ do
finally (liftIO $ runSettings (setPort port defaultSettings) app) finally (liftIO $ runSettings (setPort port defaultSettings) app)
(liftIO $ shutdownApp site >> putMVar done ()) (liftIO $ shutdownApp site `finally` putMVar done ())
-- | kill the server -- | kill the server
shutdown :: IO () shutdown :: IO ()

2
config/test-settings.yml
View File

@ -8,3 +8,5 @@ log-settings:
destination: "test.log" destination: "test.log"
auth-dummy-login: true auth-dummy-login: true
job-workers: 1