blob: e60e78481caabd66c985dfa57105aae79ab4fbef (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
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 UnixLike
hasOriginUrl u = property ("propellor repo url " ++ u) $ do
curru <- liftIO getRepoUrl
if curru == Just u
then return NoChange
else makeChange $ setRepoUrl u
|
