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

propellor spin

This commit is contained in:
Joey Hess 2014-03-31 14:44:38 -04:00
parent a17f5c70a6
commit 02c357de42
Failed to extract signature
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Propellor/CmdLine.hs
View File

@ -78,8 +78,6 @@ spin host = do
hFlush stdout hFlush stdout
s <- w82s . BL.unpack . B64.encode s <- w82s . BL.unpack . B64.encode
<$> BL.readFile keyring <$> BL.readFile keyring
putStrLn $ show $ toMarked keyringMarker s
hFlush stdout
hPutStrLn toh $ toMarked keyringMarker s hPutStrLn toh $ toMarked keyringMarker s
hFlush toh hFlush toh
putStrLn "done" putStrLn "done"
@ -116,7 +114,7 @@ spin host = do
showremote l showremote l
getstatus h getstatus h
Just status -> return status Just status -> return status
showremote s = putStrLn $ host ++ ": " ++ s showremote s = putStrLn s
data BootStrapStatus = HaveKeyRing | NeedKeyRing data BootStrapStatus = HaveKeyRing | NeedKeyRing
deriving (Read, Show, Eq) deriving (Read, Show, Eq)