summaryrefslogtreecommitdiff
path: root/Propellor/CmdLine.hs
diff options
context:
space:
mode:
authorJoey Hess2014-03-31 14:44:38 -0400
committerJoey Hess2014-03-31 14:44:38 -0400
commit02c357de4242318c4b9f546f1f757bc7cea3bf61 (patch)
treee8bd7d1b7347ba05593f3d9d309025057c9180bd /Propellor/CmdLine.hs
parenta17f5c70a64e8ea1d1153ae1112186537e485d7c (diff)
propellor spin
Diffstat (limited to 'Propellor/CmdLine.hs')
-rw-r--r--Propellor/CmdLine.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs
index eff279d0..1827f8a9 100644
--- a/Propellor/CmdLine.hs
+++ b/Propellor/CmdLine.hs
@@ -78,8 +78,6 @@ spin host = do
hFlush stdout
s <- w82s . BL.unpack . B64.encode
<$> BL.readFile keyring
- putStrLn $ show $ toMarked keyringMarker s
- hFlush stdout
hPutStrLn toh $ toMarked keyringMarker s
hFlush toh
putStrLn "done"
@@ -116,7 +114,7 @@ spin host = do
showremote l
getstatus h
Just status -> return status
- showremote s = putStrLn $ host ++ ": " ++ s
+ showremote s = putStrLn s
data BootStrapStatus = HaveKeyRing | NeedKeyRing
deriving (Read, Show, Eq)