SunRed/myriad
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add /containers and /cleanup endpoints

Browse source
This commit is contained in:
1computer1 2019-07-11 02:20:36 -04:00
parent 8e246c8851
commit 92cb8a6388
3 changed files with 22 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Myriad/Docker.hs
View file

@ -125,11 +125,11 @@ killAllContainers = do
containers <- asks containers >>= readIORef
forConcurrently_ (M.keys containers) $ killContainer
killAllContainersMaybe :: MonadWithIO m => MyriadT m Int
killAllContainersMaybe :: MonadWithIO m => MyriadT m [ContainerName]
killAllContainersMaybe = do
containers <- asks containers >>= readIORef
xs <- forConcurrently (M.keys containers) $ killContainerMaybe
pure . length $ filter id xs
xs <- forConcurrently (M.toList containers) \(k, v) -> (v,) <$> killContainerMaybe k
pure . map fst $ filter snd xs
evalCode :: MonadWithIO m => LanguageConfig -> Int -> String -> MyriadT m EvalResult
evalCode lang@LanguageConfig { name, timeout, retries } numRetries code = do