summaryrefslogtreecommitdiff
path: root/Propellor/CmdLine.hs
diff options
context:
space:
mode:
authorJoey Hess2014-03-31 15:07:06 -0400
committerJoey Hess2014-03-31 15:07:06 -0400
commit36469bc07dc3021b4737a87175d662a0ddb8c878 (patch)
tree06a157f5e861cb2eccf197e68fb9620ea6feb168 /Propellor/CmdLine.hs
parentf01ae6730186fbf052aad188b634bfd88bda92cf (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 44faa940..ef825d92 100644
--- a/Propellor/CmdLine.hs
+++ b/Propellor/CmdLine.hs
@@ -154,9 +154,7 @@ boot props = do
makePrivDataDir
maybe noop (writeFileProtected privDataLocal) $
fromMarked privDataMarker reply
- print $ eitherToMaybe . B64.decode . BL.pack . s2w8 =<< fromMarked keyringMarker reply
- print $ B64.decode . BL.pack . s2w8 <$> fromMarked keyringMarker reply
- case eitherToMaybe . B64.decode . BL.pack . s2w8 =<< fromMarked keyringMarker reply of
+ case eitherToMaybe . B64.decode . BL.pack . s2w8 . takeWhile (/= '\n') =<< fromMarked keyringMarker reply of
Nothing -> noop
Just d -> do
writeFileProtected keyring ""