@@ -75,7 +75,7 @@ instance ToYaml a => ToYaml [a] where
75 toYaml = array . map toYaml
75 toYaml = array . map toYaml
76instance ToYaml Text where
76instance ToYaml Text where
77 toYaml = string
77 toYaml = string
78−instance ToYaml String where
78+instance {-# OVERLAPPING #-} ToYaml String where
79 toYaml = string . T.pack
79 toYaml = string . T.pack
80instance ToYaml Int where
80instance ToYaml Int where
81 toYaml i = YamlBuilder (EventScalar (S8.pack $ show i) NoTag PlainNoTag Nothing:)
81 toYaml i = YamlBuilder (EventScalar (S8.pack $ show i) NoTag PlainNoTag Nothing:)