propellor spin
This commit is contained in:
parent
69c39a087b
commit
9a1fffdead
|
@ -143,7 +143,7 @@ boot props = do
|
||||||
havering <- doesFileExist keyring
|
havering <- doesFileExist keyring
|
||||||
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 <- hGetContentsStrict stdin
|
||||||
|
|
||||||
hPutStrLn stderr $ show $ fromMarked keyringMarker reply
|
hPutStrLn stderr $ show $ fromMarked keyringMarker reply
|
||||||
hFlush stderr
|
hFlush stderr
|
||||||
|
|
Loading…
Reference in New Issue