From 5473314f57196887117cc45ff066ed4d74115ef2 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 30 Mar 2016 11:06:01 -0400 Subject: show childProperty same as property --- src/Propellor/Types/Core.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor/Types') diff --git a/src/Propellor/Types/Core.hs b/src/Propellor/Types/Core.hs index fa939d2b..6fedc47e 100644 --- a/src/Propellor/Types/Core.hs +++ b/src/Propellor/Types/Core.hs @@ -74,7 +74,7 @@ data Props metatypes = Props [ChildProperty] data ChildProperty = ChildProperty Desc (Propellor Result) Info [ChildProperty] instance Show ChildProperty where - show = getDesc + show p = "property " ++ show (getDesc p) class IsProp p where setDesc :: p -> Desc -> p -- cgit v1.2.3