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

Add logging for new endpoints

Browse source
This commit is contained in:
1computer1 2019-07-11 02:23:33 -04:00
parent 92cb8a6388
commit b9ae32c4c0
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Myriad/Server.hs
View file

@ -61,8 +61,11 @@ serverT = handleLanguages :<|> handleEval :<|> handleContainers :<|> handleClean
handleContainers :: MyriadT m [T.Text] handleContainers :: MyriadT m [T.Text]
handleContainers = do handleContainers = do
logInfoN $ mconcat ["GET /containers"]
containers <- asks containers >>= readIORef containers <- asks containers >>= readIORef
pure . map cvs $ M.elems containers pure . map cvs $ M.elems containers
handleCleanup :: MyriadT m [T.Text] handleCleanup :: MyriadT m [T.Text]
handleCleanup = map cvs <$> killAllContainersMaybe handleCleanup = do
logInfoN $ mconcat ["POST /cleanup"]
map cvs <$> killAllContainersMaybe