From be01532282bdca11e6fc97114206e44872d16eea Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 11 Apr 2014 02:03:51 -0400 Subject: foo --- Propellor/PrivData.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'Propellor/PrivData.hs') diff --git a/Propellor/PrivData.hs b/Propellor/PrivData.hs index 5adc9e94..c7af1aac 100644 --- a/Propellor/PrivData.hs +++ b/Propellor/PrivData.hs @@ -22,6 +22,9 @@ import Utility.Tmp import Utility.SafeCommand import Utility.Misc +-- | When the specified PrivDataField is available on the host Propellor +-- is provisioning, it provies the data to the action. Otherwise, it prints +-- a message to help the user make the necessary private data available. withPrivData :: PrivDataField -> (String -> Propellor Result) -> Propellor Result withPrivData field a = maybe missing a =<< liftIO (getPrivData field) where -- cgit v1.2.3