propellor spin
This commit is contained in:
parent
0b7fb01032
commit
50a9e826a3
|
@ -243,9 +243,14 @@ runningContainer cid@(ContainerId hn cn) image containerprops = containerDesc ci
|
||||||
ident = ContainerIdent image hn cn runps
|
ident = ContainerIdent image hn cn runps
|
||||||
|
|
||||||
getrunningident :: IO (Maybe ContainerIdent)
|
getrunningident :: IO (Maybe ContainerIdent)
|
||||||
getrunningident = catchDefaultIO Nothing $
|
getrunningident = simpleShClient (namedPipe cid) "cat" [propellorIdent] $ \vs -> do
|
||||||
simpleShClient (namedPipe cid) "cat" [propellorIdent] $
|
let l = (extractident) vs
|
||||||
pure . headMaybe . catMaybes . map readish . catMaybes . map getStdout
|
print l
|
||||||
|
print vs
|
||||||
|
return l
|
||||||
|
|
||||||
|
extractident :: [Resp] -> Maybe ContainerIdent
|
||||||
|
extractident = headMaybe . catMaybes . map readish . catMaybes . map getStdout
|
||||||
|
|
||||||
runps = getRunParams $ containerprops ++
|
runps = getRunParams $ containerprops ++
|
||||||
-- expose propellor directory inside the container
|
-- expose propellor directory inside the container
|
||||||
|
|
Loading…
Reference in New Issue