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 ...@@ -40,23 +40,23 @@ import Data.Maybe
import Control.Foldl as Fold import Control.Foldl as Fold
cleanLeftoverProcesses :: Shell () {-cleanLeftoverProcesses :: Shell ()-}
cleanLeftoverProcesses = do {-cleanLeftoverProcesses = do-}
printInfo "Cleaning leftover processes.\n" {-printInfo "Cleaning leftover processes.\n"-}
daemon <- myWhich "daemon" {-daemon <- myWhich "daemon"-}
verboseShell (format ("pkill " % fp) daemon) empty {-verboseShell (format ("pkill " % fp) daemon) empty-}
cmd <- myWhich "cmd" {-cmd <- myWhich "cmd"-}
void $ verboseShell (format ("pkill " % fp) cmd) empty {-void $ verboseShell (format ("pkill " % fp) cmd) empty-}
daemon_wrapped <- myWhichMaybe ".daemon-wrapped" {-daemon_wrapped <- myWhichMaybe ".daemon-wrapped"-}
E.whenJust daemon_wrapped {-E.whenJust daemon_wrapped-}
(\x -> void $ verboseShell "pkill .daemon-wrapped" empty) {-(\x -> void $ verboseShell "pkill .daemon-wrapped" empty)-}
cmd_wrapped <- myWhichMaybe ".cmd-wrapped" {-cmd_wrapped <- myWhichMaybe ".cmd-wrapped"-}
void $ E.whenJust cmd_wrapped {-void $ E.whenJust cmd_wrapped-}
(\x -> void $ verboseShell "pkill .cmd-wrapped" empty) {-(\x -> void $ verboseShell "pkill .cmd-wrapped" empty)-}
cleanLeftovers :: StackArgs -> Shell () cleanLeftovers :: StackArgs -> Shell ()
cleanLeftovers StackArgs {..} = do cleanLeftovers StackArgs {..} = do
cleanLeftoverProcesses {-cleanLeftoverProcesses-}
printInfo "Cleaning leftover files.\n" printInfo "Cleaning leftover files.\n"
CM.mapM_ CM.mapM_
cleanLog cleanLog
......
...@@ -111,6 +111,4 @@ in rec ...@@ -111,6 +111,4 @@ in rec
inherit shellHook; inherit shellHook;
MANIFESTS = ./manifests; 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