diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2017-02-02 20:59:28 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-02-02 20:59:28 -0700 |
| commit | 0a2d07bae428d3be077daf028999bf3e669e6bb7 (patch) | |
| tree | 956625a4585cf81f6fe9d35cb7870e37ce7803ef /src/Propellor/Property/Apt.hs | |
| parent | 10cb6c5c4e69d5d7617bedf2b439e371e4ff07ab (diff) | |
fix type of Apt.pinnedTo
Diffstat (limited to 'src/Propellor/Property/Apt.hs')
| -rw-r--r-- | src/Propellor/Property/Apt.hs | 7 |
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 |