summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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 []