From f01ae6730186fbf052aad188b634bfd88bda92cf Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 31 Mar 2014 15:06:16 -0400 Subject: propellor spin --- Propellor/CmdLine.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'Propellor') diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs index c5224682..44faa940 100644 --- a/Propellor/CmdLine.hs +++ b/Propellor/CmdLine.hs @@ -154,6 +154,8 @@ 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 Nothing -> noop Just d -> do -- cgit v1.2.3