Commit c9580560 authored by Valentin Reis's avatar Valentin Reis

Removed pkills from the stack tests.

parent 63c8d3fa
Pipeline #4783 passed with stage
in 40 seconds
......@@ -40,23 +40,23 @@ import Data.Maybe
import Control.Foldl as Fold
cleanLeftoverProcesses :: Shell ()
cleanLeftoverProcesses = do
printInfo "Cleaning leftover processes.\n"
daemon <- myWhich "daemon"
verboseShell (format ("pkill " % fp) daemon) empty
cmd <- myWhich "cmd"
void $ verboseShell (format ("pkill " % fp) cmd) empty
daemon_wrapped <- myWhichMaybe ".daemon-wrapped"
E.whenJust daemon_wrapped
(\x -> void $ verboseShell "pkill .daemon-wrapped" empty)
cmd_wrapped <- myWhichMaybe ".cmd-wrapped"
void $ E.whenJust cmd_wrapped
(\x -> void $ verboseShell "pkill .cmd-wrapped" empty)
{-cleanLeftoverProcesses :: Shell ()-}
{-cleanLeftoverProcesses = do-}
{-printInfo "Cleaning leftover processes.\n"-}
{-daemon <- myWhich "daemon"-}
{-verboseShell (format ("pkill " % fp) daemon) empty-}
{-cmd <- myWhich "cmd"-}
{-void $ verboseShell (format ("pkill " % fp) cmd) empty-}
{-daemon_wrapped <- myWhichMaybe ".daemon-wrapped"-}
{-E.whenJust daemon_wrapped-}
{-(\x -> void $ verboseShell "pkill .daemon-wrapped" empty)-}
{-cmd_wrapped <- myWhichMaybe ".cmd-wrapped"-}
{-void $ E.whenJust cmd_wrapped-}
{-(\x -> void $ verboseShell "pkill .cmd-wrapped" empty)-}
cleanLeftovers :: StackArgs -> Shell ()
cleanLeftovers StackArgs {..} = do
cleanLeftoverProcesses
{-cleanLeftoverProcesses-}
printInfo "Cleaning leftover files.\n"
CM.mapM_
cleanLog
......
......@@ -111,6 +111,4 @@ in rec
inherit shellHook;
MANIFESTS = ./manifests;
};
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment