From edf12c8643f2d7eef439efe36265ca9be6838938 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 11 Nov 2015 15:11:09 -0400 Subject: rename for clarity --- debian/changelog | 4 ++-- src/Propellor/Property/PropellorRepo.hs | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/debian/changelog b/debian/changelog index dd1ed5c0..043848c5 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,7 +1,7 @@ propellor (2.13.1) UNRELEASED; urgency=medium - * Add Propellor.Property.PropellorRepo.hasUrl, an explicit way to set the - git repository url normally implicitly set when using --spin. + * Add Propellor.Property.PropellorRepo.hasOriginUrl, an explicit way to + set the git repository url normally implicitly set when using --spin. -- Joey Hess Wed, 11 Nov 2015 13:37:00 -0400 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 -- cgit v1.2.3