diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-03-06 13:27:48 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-03-06 13:27:48 -0400 |
| commit | 27c5e59fba74601fc1852b80868d8672bc569197 (patch) | |
| tree | 67dcb82a45ade38c0319dc5b3d90e3b32dc445e0 /src/Propellor/Property/File.hs | |
| parent | 19d7083ed8759d8b76420186f34e31fb46e869d8 (diff) | |
| parent | 7a8505608c45a49abff2dd4573a8e7579e0c366b (diff) | |
Merge branch 'joeyconfig'
Diffstat (limited to 'src/Propellor/Property/File.hs')
| -rw-r--r-- | src/Propellor/Property/File.hs | 6 |
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. |