summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJoey Hess2014-07-06 23:39:32 -0400
committerJoey Hess2014-07-06 23:39:32 -0400
commit40f64416def7d2a522cc7e3a111593eea8e57134 (patch)
tree52b1e7afe33bf3dda1e34143fda7ecc4929caaaf /src
parented4eaa18ffa86277b9ed83df1faa93d0e0f4f75a (diff)
parentea11d1cf69422ec01a9fef26b5877f5fa3bae000 (diff)
Merge branch 'joeyconfig'
Diffstat (limited to 'src')
-rw-r--r--src/Propellor/PrivData.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/PrivData.hs b/src/Propellor/PrivData.hs
index d7d81a21..c6e41b45 100644
--- a/src/Propellor/PrivData.hs
+++ b/src/Propellor/PrivData.hs
@@ -30,8 +30,6 @@ import Utility.FileMode
import Utility.Env
import Utility.Table
-type PrivMap = M.Map (PrivDataField, Context) PrivData
-
-- | Allows a Property to access the value of a specific PrivDataField,
-- for use in a specific Context.
--
@@ -75,6 +73,8 @@ getLocalPrivData field context =
where
localcache = catchDefaultIO Nothing $ readish <$> readFile privDataLocal
+type PrivMap = M.Map (PrivDataField, Context) PrivData
+
{- Get only the set of PrivData that the Host's Info says it uses. -}
filterPrivData :: Host -> PrivMap -> PrivMap
filterPrivData host = M.filterWithKey (\k _v -> S.member k used)