propellor spin
This commit is contained in:
parent
29f3337034
commit
f8b71c0ab4
|
@ -489,7 +489,7 @@ runContainer image ps cmd = boolSystem dockercmd $ map Param $
|
||||||
"run" : (ps ++ image : cmd)
|
"run" : (ps ++ image : cmd)
|
||||||
|
|
||||||
inContainer :: ContainerId -> [String] -> [String] -> (Handle -> IO a) -> IO a
|
inContainer :: ContainerId -> [String] -> [String] -> (Handle -> IO a) -> IO a
|
||||||
inContainer cid ps cmd = withHandle StdinHandle createProcessSuccess
|
inContainer cid ps cmd = withHandle StdoutHandle createProcessSuccess
|
||||||
(proc dockercmd ("exec" : ps ++ [fromContainerId cid] ++ cmd))
|
(proc dockercmd ("exec" : ps ++ [fromContainerId cid] ++ cmd))
|
||||||
|
|
||||||
commitContainer :: ContainerId -> IO (Maybe Image)
|
commitContainer :: ContainerId -> IO (Maybe Image)
|
||||||
|
|
Loading…
Reference in New Issue