add runCmd' following callProcess' model

rvion · Nov 25, 2015 · 02593ba · 02593ba
1 parent 9f73304
commit 02593ba
Showing 1 changed file with 11 additions and 2 deletions.
diff --git a/src/System/Process/Run.hs b/src/System/Process/Run.hs
@@ -10,6 +10,7 @@
 
 module System.Process.Run
     (runCmd
+    ,runCmd'
     ,callProcess
     ,callProcess'
     ,ProcessExitedUnsuccessfully)
@@ -39,8 +40,16 @@ runCmd :: forall (m :: * -> *).
       => CMD
       -> Maybe Text  -- ^ optional additional error message
       -> m ()
-runCmd cmd@(CMD{..}) mbErrMsg = do
-    result <- try (callProcess cmd)
+runCmd = runCmd' id
+
+runCmd' :: forall (m :: * -> *).
+         (MonadLogger m,MonadIO m,MonadBaseControl IO m)
+      => (CreateProcess -> CreateProcess)
+      -> CMD
+      -> Maybe Text  -- ^ optional additional error message
+      -> m ()
+runCmd' modCP cmd@(CMD{..}) mbErrMsg = do
+    result <- try (callProcess' modCP cmd)
     case result of
         Left (ProcessExitedUnsuccessfully _ ec) -> do
             $logError $