summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/File.hs
diff options
context:
space:
mode:
authorJoey Hess2016-03-06 13:27:48 -0400
committerJoey Hess2016-03-06 13:27:48 -0400
commit27c5e59fba74601fc1852b80868d8672bc569197 (patch)
tree67dcb82a45ade38c0319dc5b3d90e3b32dc445e0 /src/Propellor/Property/File.hs
parent19d7083ed8759d8b76420186f34e31fb46e869d8 (diff)
parent7a8505608c45a49abff2dd4573a8e7579e0c366b (diff)
Merge branch 'joeyconfig'
Diffstat (limited to 'src/Propellor/Property/File.hs')
-rw-r--r--src/Propellor/Property/File.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Propellor/Property/File.hs b/src/Propellor/Property/File.hs
index 3021617c..e3732c9f 100644
--- a/src/Propellor/Property/File.hs
+++ b/src/Propellor/Property/File.hs
@@ -92,7 +92,11 @@ fileProperty' writer desc a f = property desc $ go =<< liftIO (doesFileExist f)
let new = unlines (a (lines old))
if old == new
then noChange
- else makeChange $ updatefile new `viaStableTmp` f
+ else makeChange $ do
+ writeFile "/tmp/a" old
+ writeFile "/tmp/b" new
+ print ("MAKE CHANGE", f)
+ updatefile new `viaStableTmp` f
go False = makeChange $ writer f (unlines $ a [])
-- Replicate the original file's owner and mode.