From 2c53b0f0f098f3112782a52f4b9575ec36369b16 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 2 Feb 2017 21:06:47 -0700 Subject: add Explanation: lines to pref files --- src/Propellor/Property/Apt.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/Propellor/Property/Apt.hs') diff --git a/src/Propellor/Property/Apt.hs b/src/Propellor/Property/Apt.hs index ba5fd5e7..218c7197 100644 --- a/src/Propellor/Property/Apt.hs +++ b/src/Propellor/Property/Apt.hs @@ -117,7 +117,8 @@ suiteAvailablePinned s pin = available unavailable available :: Property Debian available = tightenTargets $ combineProperties (desc True) $ props & File.hasContent prefFile - [ "Package: *" + [ "Explanation: This file added by propellor" + , "Package: *" , "Pin: release " ++ suitePin s , "Pin-Priority: " ++ show pin ] @@ -281,7 +282,8 @@ pinnedTo' p (suite, pin) = (tightenTargets $ File.notPresent prefFile) where prefs = - [ "Package: " ++ p + [ "Explanation: This file added by propellor" + , "Package: " ++ p , "Pin: release " ++ suitePin suite , "Pin-Priority: " ++ show pin ] -- cgit v1.2.3