summaryrefslogtreecommitdiff
path: root/src/Propellor/Types/Info.hs
diff options
context:
space:
mode:
authorJoey Hess2015-09-08 22:36:38 -0400
committerJoey Hess2015-09-08 22:36:38 -0400
commit581a87cad226c1e1c3fbe6a8cbd52c65bd3baef5 (patch)
tree096944229e0fc36f29e0ccd067b65b144796a4ee /src/Propellor/Types/Info.hs
parent226897142791a69b70905fd0442708f6ae6d9043 (diff)
better Show for Info
Diffstat (limited to 'src/Propellor/Types/Info.hs')
-rw-r--r--src/Propellor/Types/Info.hs2
1 files changed, 1 insertions, 1 deletions
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 []