diff options
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 |