Changeset 8676 for src/Pugs/Prim/Yaml.hs

Timestamp:

01/15/06 08:51:18 (3 years ago)

Author:

audreyt

Message:

* Unescaped UTF8 literal support for YAML dump/load, ported

from Perl5's YAML::Syck.

Files:

• src/Pugs/Prim/Yaml.hs (modified) (1 diff)

src/Pugs/Prim/Yaml.hs

@@ -66 +66 @@
     rv   <- liftIO (emitYaml obj)
     either (fail . ("YAML Emit Error: "++))
-           (return . VStr) rv
+           (return . VStr . decodeUTF8) rv
 
 strNode :: String -> YamlNode