summaryrefslogtreecommitdiff
path: root/src/Propellor/PrivData.hs
diff options
context:
space:
mode:
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