From 32ddebc0309a73c50e0f1974b4f9435fce3f86c9 Mon Sep 17 00:00:00 2001 From: tv Date: Sun, 27 Jan 2019 09:52:36 +0100 Subject: Reaktor.Plugins.System: Command -> SystemCommand --- src/Reaktor/Plugins/System.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/Reaktor/Plugins/System.hs') diff --git a/src/Reaktor/Plugins/System.hs b/src/Reaktor/Plugins/System.hs index 864bbc3..8ca468c 100644 --- a/src/Reaktor/Plugins/System.hs +++ b/src/Reaktor/Plugins/System.hs @@ -90,7 +90,7 @@ run1 Config{..} Actions{..} Hook{..} prefix msgtarget text = do name = case hCommand of Capture i -> fromMaybe "" (capture i) - CaptureOr Command{..} -> T.pack $ takeBaseName $ commandPath + CaptureOr SystemCommand{..} -> T.pack $ takeBaseName $ scPath command = case hCommand of @@ -106,7 +106,7 @@ run1 Config{..} Actions{..} Hook{..} prefix msgtarget text = do CaptureOr s -> Just s case command of - Just Command{..} -> do + Just SystemCommand{..} -> do baseEnv <- getEnvironment let @@ -138,13 +138,13 @@ run1 Config{..} Actions{..} Hook{..} prefix msgtarget text = do env = M.toList $ mconcat [ M.fromList extraEnv - , maybe mempty id commandEnv + , maybe mempty id scEnv , M.fromList baseEnv ] - cwd = commandWorkDir <|> hWorkDir <|> cWorkDir + cwd = scWorkDir <|> hWorkDir <|> cWorkDir - fork commandPath args cwd (Just env) "" hTimeout Callbacks{..} + fork scPath args cwd (Just env) "" hTimeout Callbacks{..} Nothing -> do let s = name <> ": command not found" -- cgit v1.2.3