summaryrefslogtreecommitdiff
path: root/src/Propellor/CmdLine.hs
diff options
context:
space:
mode:
authorJoey Hess2014-11-18 18:46:10 -0400
committerJoey Hess2014-11-18 18:46:10 -0400
commit80a20d6df36e789a452474fb6d1329583ebe95b2 (patch)
treeb1ca5827058ca1a66acbef6c3c0a15b29ca272b0 /src/Propellor/CmdLine.hs
parent94369ef76baed1ef188d6d3030dee83f08690284 (diff)
cleanup
Diffstat (limited to 'src/Propellor/CmdLine.hs')
-rw-r--r--src/Propellor/CmdLine.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs
index 8c67f378..ebe790ec 100644
--- a/src/Propellor/CmdLine.hs
+++ b/src/Propellor/CmdLine.hs
@@ -245,7 +245,7 @@ spin hn hst = do
hClose toh
-- Display remaining output.
void $ tryIO $ forever $
- showremote =<< hGetLine fromh
+ putStrLn =<< hGetLine fromh
hClose fromh
dispatch Nothing = return ()
@@ -271,8 +271,6 @@ spin hn hst = do
runcmd = mkcmd
[ "cd " ++ localdir ++ " && ./propellor --continue " ++ shellEscape (show (SimpleRun hn)) ]
- showremote s = putStrLn s
-
sendprivdata toh privdata = void $
actionMessage ("Sending privdata (" ++ show (length privdata) ++ " bytes) to " ++ hn) $ do
sendMarked toh privDataMarker privdata