summaryrefslogtreecommitdiff
path: root/PrivData.hs
diff options
context:
space:
mode:
authorJoey Hess2014-03-30 19:19:29 -0400
committerJoey Hess2014-03-30 19:19:29 -0400
commit6d5919199d49384240e13ebee67348a35f3ef85b (patch)
treeb29d89b59ddb3c2302aab761de8bda618a974da9 /PrivData.hs
parent0720bc499f49ffbce8fcebe2f931d56dc5cc83e3 (diff)
propellor spin
Diffstat (limited to 'PrivData.hs')
-rw-r--r--PrivData.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/PrivData.hs b/PrivData.hs
index c0c07fb2..a74cb208 100644
--- a/PrivData.hs
+++ b/PrivData.hs
@@ -39,12 +39,16 @@ getPrivData field = do
setPrivData :: HostName -> PrivDataField -> String -> IO ()
setPrivData host field value = do
+ makePrivDataDir
let f = privDataFile host
m <- fromMaybe M.empty . readish <$> gpgDecrypt f
let m' = M.insert field value m
gpgEncrypt f (show m')
void $ boolSystem "git" [Param "add", File f]
+makePrivDataDir :: IO ()
+makePrivDataDir = createDirectoryIfMissing False privDataDir
+
privDataDir :: FilePath
privDataDir = "privdata"