summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/PropellorRepo.hs
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