diff options
| author | Joey Hess <joey@kitenet.net> | 2014-07-06 19:40:03 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-06 19:40:03 -0400 |
| commit | 7330737b79b4f7dfa279d97f05a754259f096d52 (patch) | |
| tree | edf12c2d1899c29c4291ecac13f2987b741e7048 | |
| parent | 5576955ec5434f78dbf6776c7d7266fb933cab91 (diff) | |
reorg
| -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) |
