diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-03-06 18:26:38 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-03-06 18:26:38 -0400 |
| commit | dc2c3217f5916e55a7bbba4c459d4e41cbca2d21 (patch) | |
| tree | 1d664694206833f4009285b88469d3bb3e60d8d2 /src/Propellor/Property/File.hs | |
| parent | 550da4c43c76361654c41e2e2579d1023bc5828f (diff) | |
eek, nasty debug left in
Diffstat (limited to 'src/Propellor/Property/File.hs')
| -rw-r--r-- | src/Propellor/Property/File.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/Propellor/Property/File.hs b/src/Propellor/Property/File.hs index e3732c9f..3021617c 100644 --- a/src/Propellor/Property/File.hs +++ b/src/Propellor/Property/File.hs @@ -92,11 +92,7 @@ fileProperty' writer desc a f = property desc $ go =<< liftIO (doesFileExist f) let new = unlines (a (lines old)) if old == new then noChange - else makeChange $ do - writeFile "/tmp/a" old - writeFile "/tmp/b" new - print ("MAKE CHANGE", f) - updatefile new `viaStableTmp` f + else makeChange $ updatefile new `viaStableTmp` f go False = makeChange $ writer f (unlines $ a []) -- Replicate the original file's owner and mode. |