diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs index 44faa94..ef825d9 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 ""