summaryrefslogtreecommitdiff
path: root/src/Propellor/PrivData.hs
diff options
context:
space:
mode:
authorJoey Hess2014-07-06 16:03:28 -0400
committerJoey Hess2014-07-06 16:03:28 -0400
commit77f396175231f52f7658ab8702bcd8f776a82242 (patch)
tree71cdc1cbaa79ec05da0eb76ce05ead16e600948b /src/Propellor/PrivData.hs
parent2d10358d54faa299a1352891c0ff5722a0ec05a4 (diff)
better output, after gpg messages
Diffstat (limited to 'src/Propellor/PrivData.hs')
-rw-r--r--src/Propellor/PrivData.hs5
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