diff options
| -rw-r--r-- | Propellor/CmdLine.hs | 4 |
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 "" |