From 7330737b79b4f7dfa279d97f05a754259f096d52 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 6 Jul 2014 19:40:03 -0400 Subject: reorg --- src/Propellor/PrivData.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Propellor') 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) -- cgit v1.2.3