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

foo

This commit is contained in:
Joey Hess 2014-04-11 02:03:51 -04:00
parent 16e91be138
commit be01532282
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Propellor/PrivData.hs
View File

@ -22,6 +22,9 @@ import Utility.Tmp
import Utility.SafeCommand import Utility.SafeCommand
import Utility.Misc 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 :: PrivDataField -> (String -> Propellor Result) -> Propellor Result
withPrivData field a = maybe missing a =<< liftIO (getPrivData field) withPrivData field a = maybe missing a =<< liftIO (getPrivData field)
where where

1
Propellor/Property.hs
View File

@ -105,6 +105,7 @@ host :: HostName -> Host
host hn = Host [] (\_ -> newAttr hn) host hn = Host [] (\_ -> newAttr hn)
-- | Adds a property to a Host -- | Adds a property to a Host
--
-- Can add Properties, RevertableProperties, and AttrProperties -- Can add Properties, RevertableProperties, and AttrProperties
(&) :: IsProp p => Host -> p -> Host (&) :: IsProp p => Host -> p -> Host
(Host ps as) & p = Host (ps ++ [toProp p]) (getAttr p . as) (Host ps as) & p = Host (ps ++ [toProp p]) (getAttr p . as)