cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

reorg

This commit is contained in:
Joey Hess 2014-07-06 19:40:03 -04:00
parent 5576955ec5
commit 7330737b79
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Propellor/PrivData.hs
View File

@ -30,8 +30,6 @@ import Utility.FileMode
import Utility.Env import Utility.Env
import Utility.Table import Utility.Table
type PrivMap = M.Map (PrivDataField, Context) PrivData
-- | Allows a Property to access the value of a specific PrivDataField, -- | Allows a Property to access the value of a specific PrivDataField,
-- for use in a specific Context. -- for use in a specific Context.
-- --
@ -75,6 +73,8 @@ getLocalPrivData field context =
where where
localcache = catchDefaultIO Nothing $ readish <$> readFile privDataLocal 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. -} {- Get only the set of PrivData that the Host's Info says it uses. -}
filterPrivData :: Host -> PrivMap -> PrivMap filterPrivData :: Host -> PrivMap -> PrivMap
filterPrivData host = M.filterWithKey (\k _v -> S.member k used) filterPrivData host = M.filterWithKey (\k _v -> S.member k used)