diff options
| author | Joey Hess <joey@kitenet.net> | 2014-07-06 23:39:32 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-06 23:39:32 -0400 |
| commit | 40f64416def7d2a522cc7e3a111593eea8e57134 (patch) | |
| tree | 52b1e7afe33bf3dda1e34143fda7ecc4929caaaf /src | |
| parent | ed4eaa18ffa86277b9ed83df1faa93d0e0f4f75a (diff) | |
| parent | ea11d1cf69422ec01a9fef26b5877f5fa3bae000 (diff) | |
Merge branch 'joeyconfig'
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/PrivData.hs | 4 |
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) |