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 --- src/Propellor/Property/PropellorRepo.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') 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