cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cleanup

This commit is contained in:
Joey Hess 2014-11-18 18:46:10 -04:00
parent 94369ef76b
commit 80a20d6df3
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Propellor/CmdLine.hs
View File

@ -245,7 +245,7 @@ spin hn hst = do
hClose toh hClose toh
-- Display remaining output. -- Display remaining output.
void $ tryIO $ forever $ void $ tryIO $ forever $
showremote =<< hGetLine fromh putStrLn =<< hGetLine fromh
hClose fromh hClose fromh
dispatch Nothing = return () dispatch Nothing = return ()
@ -271,8 +271,6 @@ spin hn hst = do
runcmd = mkcmd runcmd = mkcmd
[ "cd " ++ localdir ++ " && ./propellor --continue " ++ shellEscape (show (SimpleRun hn)) ] [ "cd " ++ localdir ++ " && ./propellor --continue " ++ shellEscape (show (SimpleRun hn)) ]
showremote s = putStrLn s
sendprivdata toh privdata = void $ sendprivdata toh privdata = void $
actionMessage ("Sending privdata (" ++ show (length privdata) ++ " bytes) to " ++ hn) $ do actionMessage ("Sending privdata (" ++ show (length privdata) ++ " bytes) to " ++ hn) $ do
sendMarked toh privDataMarker privdata sendMarked toh privDataMarker privdata