From ba5ae39d1a80e1741971571f7843e877a7a271ff Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 31 Jan 2017 20:33:50 -0700 Subject: describe Apt.pinnedTo --- src/Propellor/Property/Apt.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Propellor/Property/Apt.hs') diff --git a/src/Propellor/Property/Apt.hs b/src/Propellor/Property/Apt.hs index 314cfef1..b18626c6 100644 --- a/src/Propellor/Property/Apt.hs +++ b/src/Propellor/Property/Apt.hs @@ -265,6 +265,7 @@ pinnedTo -> (DebianSuite, PinPriority) -> RevertableProperty UnixLike UnixLike pinnedTo ps (suite, pin) = (\p -> pinnedTo' p (suite, pin)) `applyToList` ps + `describe` unwords (("pinned to" ++ showSuite suite):ps) pinnedTo' :: String -- cgit v1.2.3