diff options
| author | Joey Hess <joey@kitenet.net> | 2014-07-06 16:03:28 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-06 16:03:28 -0400 |
| commit | 77f396175231f52f7658ab8702bcd8f776a82242 (patch) | |
| tree | 71cdc1cbaa79ec05da0eb76ce05ead16e600948b /src | |
| parent | 2d10358d54faa299a1352891c0ff5722a0ec05a4 (diff) | |
better output, after gpg messages
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/PrivData.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Propellor/PrivData.hs b/src/Propellor/PrivData.hs index d57b2e6f..ac7228f8 100644 --- a/src/Propellor/PrivData.hs +++ b/src/Propellor/PrivData.hs @@ -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 |