summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/PropellorRepo.hs
diff options
context:
space:
mode:
authorJoey Hess2015-11-11 15:11:09 -0400
committerJoey Hess2015-11-11 15:11:09 -0400
commitedf12c8643f2d7eef439efe36265ca9be6838938 (patch)
tree1631f85ca1d2077d8e511dda3bb11fe5fcc4a0a3 /src/Propellor/Property/PropellorRepo.hs
parentf4ba7abb3a81629d70d0e051226aaee4ab765458 (diff)
rename for clarity
Diffstat (limited to 'src/Propellor/Property/PropellorRepo.hs')
-rw-r--r--src/Propellor/Property/PropellorRepo.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/Property/PropellorRepo.hs b/src/Propellor/Property/PropellorRepo.hs
index 20c13df1..d4c4abe5 100644
--- a/src/Propellor/Property/PropellorRepo.hs
+++ b/src/Propellor/Property/PropellorRepo.hs
@@ -11,8 +11,8 @@ import Propellor.Git
--
-- This property is useful when hosts are being updated without using
-- --spin, eg when using the `Propellor.Property.Cron.runPropellor` cron job.
-hasUrl :: String -> Property NoInfo
-hasUrl u = property ("propellor repo url " ++ u) $ do
+hasOriginUrl :: String -> Property NoInfo
+hasOriginUrl u = property ("propellor repo url " ++ u) $ do
curru <- liftIO getRepoUrl
if curru == Just u
then return NoChange