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

better output, after gpg messages

This commit is contained in:
Joey Hess 2014-07-06 16:03:28 -04:00
parent 2d10358d54
commit 77f3961752
2 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
privdata/privdata.gpg Normal file
View File

@ -0,0 +1,21 @@
-----BEGIN PGP MESSAGE-----
Version: GnuPG v1
hQIMA7ODiaEXBlRZAQ//SwnZ5WNMXGl5ETal6J+gb10DqWb+vbw6hInJLHAQ3fwi
DOyIQX0Bk/+wHOVZsq8AVktz65ali/Wh6G1zLT9a+J694NVf3dXgaV3dfsFZU6Wv
nc9mgmKPvht+bBdn4KorJZGnvqf8IoxsSPoMfV6Qvz5pFQBesbYaFSCkpS2/sW+2
qGkaLQXSqzczXanPlysX1X1BsVEKe/CEMidKaZu/1MSjboYZBo70V7v8SjjMsbnw
7WI54qPZ5SPvk03FO4dB3oXe7S5IiEtEjb6PJjpNI+sRUnwu4JU0c8/s2YL6e7ql
lLcsqGhiRJyaJm69eaanaLLLtiFptF97c92ZTUGuqBidFHGSt35a7G5NzsxwJMUf
iwMFZNu3r7j0PnGJ6LtwweNS+402rVHG95fSqfVoIrzhVD2yMLOU3O9mf465RVLX
EOs9e42XyN8cnl7xnbrSnaILbPVDJsJAGg1tfFxEReN9r3KK1ML6Vo5iHC303ubS
VRgkXxxVgQAsFldwKDmMSFyV3D1jG2sd0GNcl964P3ERIxvKzrhVeCS0HNmkyBMq
nqqiNWXGP6Un+cVGJKLMfPEfkQkENgUgNrdi0Jft2JLp55mQ/ooK/HnvWqRDsjvW
DtdWe6P4HBI/I4AcbYcjxU+RDpTzOKFsCy3Rp0AeaXn9u6no2OgsyFLCmzwSHm3S
wBoBwMjb+7g30T2HnCWjgPOsSXSiXXJekvJesaC0l/SHkEE/f+druOAArYVrhFt4
g/4aiAcHnj/+zNWe96BD0k6f27OGTPUGOUDqBUMA7ulNQHJ9LY7IvV2Ni80PhDZT
zfc6WKM0k7zffCq5XJIxnW4+VbxeOBe9z4iMhTUA+Mn8L+sUawcmwWw2C/EpDA9g
Dch0b6tGQkQs7NoxzLlHiB6ew8AyBFqk8RBpKUzWNwcesKfzUCcJ8fdWM98USfp/
3iD8tgADB+RPlCYhtmBTsHZZwv1YPg2283ehjg==
=mWRt
-----END PGP MESSAGE-----

5
src/Propellor/PrivData.hs
View File

@ -89,8 +89,9 @@ editPrivData field context = do
listPrivDataFields :: IO ()
listPrivDataFields = do
putStrLn ("All currently set privdata fields:")
mapM_ list . M.keys =<< decryptPrivData
m <- decryptPrivData
putStrLn ("\nAll currently set privdata fields:")
mapM_ list $ M.keys m
where
list = putStrLn . ("\t" ++) . shellEscape . show