propellor spin
This commit is contained in:
parent
fb2dcada17
commit
b01ba38e6e
|
@ -133,6 +133,9 @@ boot props = do
|
||||||
hFlush stdout
|
hFlush stdout
|
||||||
reply <- getContents
|
reply <- getContents
|
||||||
|
|
||||||
|
hPutStrLn stderr $ fromMarked keyringMarker reply
|
||||||
|
hFlush stderr
|
||||||
|
|
||||||
makePrivDataDir
|
makePrivDataDir
|
||||||
writeFileProtected privDataLocal $ fromMarked privDataMarker reply
|
writeFileProtected privDataLocal $ fromMarked privDataMarker reply
|
||||||
maybe noop (writeFileProtected keyring) $ fromB64Maybe $
|
maybe noop (writeFileProtected keyring) $ fromB64Maybe $
|
||||||
|
|
Loading…
Reference in New Issue