display improvements

2014-06-05 17:10:16 -04:00 · 2014-06-05 17:10:16 -04:00 · 16ae2b503f
parent 0f4e219838
commit 16ae2b503f
1 changed files with 1 additions and 1 deletions
--- 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