diff --git a/src/Propellor/Types.hs b/src/Propellor/Types.hs index d0481b6..d91ce71 100644 --- a/src/Propellor/Types.hs +++ b/src/Propellor/Types.hs @@ -66,7 +66,7 @@ data Property = Property } instance Show Property where - show = propertyDesc + show p = "property " ++ show (propertyDesc p) -- | A property that can be reverted. data RevertableProperty = RevertableProperty Property Property