summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Apt.hs
diff options
context:
space:
mode:
authorSean Whitton2017-02-02 20:59:28 -0700
committerSean Whitton2017-02-02 20:59:28 -0700
commit0a2d07bae428d3be077daf028999bf3e669e6bb7 (patch)
tree956625a4585cf81f6fe9d35cb7870e37ce7803ef /src/Propellor/Property/Apt.hs
parent10cb6c5c4e69d5d7617bedf2b439e371e4ff07ab (diff)
fix type of Apt.pinnedTo
Diffstat (limited to 'src/Propellor/Property/Apt.hs')
-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