diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-31 15:07:06 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-31 15:07:06 -0400 |
| commit | 36469bc07dc3021b4737a87175d662a0ddb8c878 (patch) | |
| tree | 06a157f5e861cb2eccf197e68fb9620ea6feb168 | |
| parent | f01ae6730186fbf052aad188b634bfd88bda92cf (diff) | |
propellor spin
| -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 "" |