git.iko.soy/typeable/octopod
on master help sign in
refactoring
commitee1a8736a5d02403aa13ad204a663e57ba24e935 authorAndrei Orlov <aaorlov1@gmail.com> dateMon 6 Jul 2020, 17:15 (6 years ago) parent75ce5a8
2 files changed+5−2
compare with master
unifiedsplit
dm-backend/src/DMC.hs+2−1 dm-backend/src/DMS.hs+3−1
dm-backend/src/DMC.hs+2−1
@@ -28,6 +28,7 @@ import System.IO.Temp
2828import System.Process.Typed
2929
3030import Common.API
31+import Common.Utils (dfiName)
3132import DMC.Args
3233import TLS (makeClientManager)
3334import Types
@@ -92,7 +93,7 @@ handleList = do
9293 liftIO $ do
9394 resp <- runClientM listH clientEnv
9495 let
95− getName (DeploymentFullInfo (Deployment dName _ _) _ _ _ _ _) = dName
96+ getName dep = dep ^.dfiName
9697 names = T.unlines . coerce . (getName <$>) <$> resp
9798 handleResponse T.putStr names
9899
dm-backend/src/DMS.hs+3−1
@@ -641,7 +641,9 @@ runStatusUpdater state = do
641641 ns = namespace state
642642 interval = 30 :: Int
643643 select_deps =
644− "SELECT name, status::text, extract(epoch from status_updated_at)::int \
644+ "SELECT name, status::text, \
645+ \extract(epoch from now())::int - \
646+ \extract(epoch from status_updated_at)::int \
645647 \FROM deployments \
646648 \WHERE checked_at < now() - interval '?' second"
647649 update_status =