diff options
| author | Joey Hess <joey@kitenet.net> | 2014-11-18 18:46:10 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-11-18 18:46:10 -0400 |
| commit | 80a20d6df36e789a452474fb6d1329583ebe95b2 (patch) | |
| tree | b1ca5827058ca1a66acbef6c3c0a15b29ca272b0 /src/Propellor/CmdLine.hs | |
| parent | 94369ef76baed1ef188d6d3030dee83f08690284 (diff) | |
cleanup
Diffstat (limited to 'src/Propellor/CmdLine.hs')
| -rw-r--r-- | src/Propellor/CmdLine.hs | 4 |
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 |