summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Propellor/Property/Apt.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Propellor/Property/Apt.hs b/src/Propellor/Property/Apt.hs
index e426b26f..c21931a9 100644
--- a/src/Propellor/Property/Apt.hs
+++ b/src/Propellor/Property/Apt.hs
@@ -268,16 +268,17 @@ type AptPrefPackage = String
pinnedTo
:: [AptPrefPackage]
-> (DebianSuite, PinPriority)
- -> RevertableProperty UnixLike UnixLike
+ -> RevertableProperty Debian Debian
pinnedTo ps (suite, pin) = (\p -> pinnedTo' p (suite, pin)) `applyToList` ps
`describe` unwords (("pinned to " ++ showSuite suite):ps)
pinnedTo'
:: AptPrefPackage
-> (DebianSuite, PinPriority)
- -> RevertableProperty UnixLike UnixLike
+ -> RevertableProperty Debian Debian
pinnedTo' p (suite, pin) =
- (prefFile `File.hasContent` prefs) <!> File.notPresent prefFile
+ (tightenTargets $ prefFile `File.hasContent` prefs)
+ <!> (tightenTargets $ File.notPresent prefFile)
where
prefs =
[ "Package: " ++ p