From 581a87cad226c1e1c3fbe6a8cbd52c65bd3baef5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 8 Sep 2015 22:36:38 -0400 Subject: better Show for Info --- src/Propellor/Types/Info.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Propellor/Types/Info.hs b/src/Propellor/Types/Info.hs index d5c463c3..a80bb681 100644 --- a/src/Propellor/Types/Info.hs +++ b/src/Propellor/Types/Info.hs @@ -21,7 +21,7 @@ import Data.Maybe data Info = Info [(Dynamic, Bool)] instance Show Info where - show (Info l) = "Info " ++ show (length l) + show (Info l) = "Info " ++ show (map (dynTypeRep . fst) l) instance Monoid Info where mempty = Info [] -- cgit v1.2.3