From 36469bc07dc3021b4737a87175d662a0ddb8c878 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 31 Mar 2014 15:07:06 -0400 Subject: propellor spin --- Propellor/CmdLine.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Propellor') 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 "" -- cgit v1.2.3