git.iko.soy/typeable/octopod
on master help sign in
Merge pull request #65 from Aviora/fix-check-command-args

Fix args of 'check' command

commit1754761a90ac0bf775b01ea64fb0050633a23355 authorandor0 <aaorlov1@gmail.com> dateTue 7 Jul 2020, 19:37 (6 years ago) parent1be2355a30eee1
1 file changed+3−1
dm-backend/src/DMS.hs+3−1
dm-backend/src/DMS.hs+3−1
@@ -692,7 +692,9 @@ runStatusUpdater state = do
692692 (\(n, s, t) -> (n, read . unpack $ s, coerce t)) <$> rows
693693 checkResult <- for checkList $ \(dName, dStatus, ts) -> do
694694 let
695− args = unpack <$> coerce ns : coerce dName : []
695+ args =
696+ [ "--namespace", unpack . coerce $ ns
697+ , "--name", unpack . coerce $ dName ]
696698 cmd = unpack . coerce $ checkingCmd
697699 ec <- runCommandWithoutPipes cmd args
698700 pure (dName, newStatus ec dStatus ts, ts)