UncheckedProperty for cmdProperty et al

* Properties that run an arbitrary command, such as cmdProperty
  and scriptProperty are converted to use UncheckedProperty, since
  they cannot tell on their own if the command truely made a change or not.
  (API Change)
  Transition guide:
  - When GHC complains about an UncheckedProperty, add:
  	`assume` MadeChange
  - Since these properties used to always return MadeChange, that
    change is always safe to make.
  - Or, if you know that the command should modifiy a file, use:
  	`changesFile` filename
* A few properties have had their Result improved, for example
  Apt.buldDep and Apt.autoRemove now check if a change was made or not.

1 files changed, 4 insertions, 3 deletions

diff --git a/src/Propellor/Property/Parted.hs b/src/Propellor/Property/Parted.hs
index 834b6c7d..5d6afa9c 100644
--- a/src/Propellor/Property/Parted.hs
+++ b/src/Propellor/Property/Parted.hs
@@ -194,9 +194,10 @@ partitioned eep disk (PartTable tabletype parts) = property desc $ do
 -- Parted is run in script mode, so it will never prompt for input.
 -- It is asked to use cylinder alignment for the disk.
 parted :: Eep -> FilePath -> [String] -> Property NoInfo
-parted YesReallyDeleteDiskContents disk ps = 
-	cmdProperty "parted" ("--script":"--align":"cylinder":disk:ps)
-		`requires` installed
+parted YesReallyDeleteDiskContents disk ps = p `requires` installed
+  where
+	p = cmdProperty "parted" ("--script":"--align":"cylinder":disk:ps)
+		`assume` MadeChange
 
 -- | Gets parted installed.
 installed :: Property NoInfo