@@ -117,7 +117,7 @@ objToEvents' (Object pairs) rest =
118-- Empty strings need special handling to ensure they get quoted. This avoids:
118-- Empty strings need special handling to ensure they get quoted. This avoids:
119-- https://github.com/snoyberg/yaml/issues/24
119-- https://github.com/snoyberg/yaml/issues/24
120−objToEvents' (String "") rest = EventScalar "" StrTag SingleQuoted Nothing : rest
120+objToEvents' (String "") rest = EventScalar "" NoTag SingleQuoted Nothing : rest
122objToEvents' (String s) rest = EventScalar (encodeUtf8 s) StrTag PlainNoTag Nothing : rest
122objToEvents' (String s) rest = EventScalar (encodeUtf8 s) StrTag PlainNoTag Nothing : rest
123objToEvents' Null rest = EventScalar "null" NullTag PlainNoTag Nothing : rest
123objToEvents' Null rest = EventScalar "null" NullTag PlainNoTag Nothing : rest