cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-03-31 14:15:12 -04:00
parent bf5663d545
commit 08bb77496f
Failed to extract signature
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Propellor/CmdLine.hs
View File

@ -132,12 +132,11 @@ boot props = do
putStrLn $ toMarked statusMarker $ show $ if havering then HaveKeyRing else NeedKeyRing putStrLn $ toMarked statusMarker $ show $ if havering then HaveKeyRing else NeedKeyRing
hFlush stdout hFlush stdout
reply <- getContents reply <- getContents
makePrivDataDir makePrivDataDir
writeFileProtected privDataLocal $ fromMarked privDataMarker reply writeFileProtected privDataLocal $ fromMarked privDataMarker reply
let keyringb64 = fromMarked keyringMarker reply maybe noop (writeFileProtected keyring) $ fromB64Maybe $
case fromB64Maybe keyringb64 of fromMarked keyringMarker reply
Nothing -> noop
Just s -> writeFileProtected keyring s
ensureProperties props ensureProperties props
addKey :: String -> IO () addKey :: String -> IO ()