From 32c1e68cfcef57d86fbf8c19743494ee4b9f1a4f Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 22 Apr 2019 12:36:30 -0700 Subject: fix Git.pulled always reporting a change Signed-off-by: Sean Whitton --- src/Propellor/Property/Git.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor') diff --git a/src/Propellor/Property/Git.hs b/src/Propellor/Property/Git.hs index e7dcb80c..a0ed4f02 100644 --- a/src/Propellor/Property/Git.hs +++ b/src/Propellor/Property/Git.hs @@ -110,7 +110,7 @@ pulled owner url dir mbranch = go [ "cd " ++ shellEscape dir , "git pull" ] - `changesFile` (dir ".git" "FETCH_HEAD") + `changesFileContent` (dir ".git" "FETCH_HEAD") isGitDir :: FilePath -> IO Bool isGitDir dir = isNothing <$> catchMaybeIO (readProcess "git" ["rev-parse", "--resolve-git-dir", dir]) -- cgit v1.2.3