From 77f396175231f52f7658ab8702bcd8f776a82242 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 6 Jul 2014 16:03:28 -0400 Subject: better output, after gpg messages --- src/Propellor/PrivData.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/Propellor/PrivData.hs') 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 -- cgit v1.2.3