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.hs7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Propellor/PrivData.hs b/src/Propellor/PrivData.hs
index fec6acc3..c2af4284 100644
--- a/src/Propellor/PrivData.hs
+++ b/src/Propellor/PrivData.hs
@@ -68,6 +68,13 @@ editPrivData host field = do
readFile f
setPrivDataTo host field v'
+listPrivDataFields :: HostName -> IO ()
+listPrivDataFields host = do
+ putStrLn (host ++ "'s currently set privdata fields:")
+ mapM_ list . M.keys =<< decryptPrivData host
+ where
+ list = putStrLn . ("\t" ++) . shellEscape . show
+
setPrivDataTo :: HostName -> PrivDataField -> String -> IO ()
setPrivDataTo host field value = do
makePrivDataDir