module Propellor.Property.PropellorRepo where import Propellor.Base import Propellor.Git.Config -- | Sets the url to use as the origin of propellor's git repository. -- -- When propellor --spin is used to update a host, the url is taken from -- the repository that --spin is run in, and passed to the host. So, you -- don't need to specifiy this property then. -- -- This property is useful when hosts are being updated without using -- --spin, eg when using the `Propellor.Property.Cron.runPropellor` cron job. hasOriginUrl :: String -> Property NoInfo hasOriginUrl u = property ("propellor repo url " ++ u) $ do curru <- liftIO getRepoUrl if curru == Just u then return NoChange else makeChange $ setRepoUrl u