Changeset 8676 for src/Pugs/CodeGen.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/CodeGen.hs (modified) (1 diff)

src/Pugs/CodeGen.hs

@@ -77 +77 @@
     case norm s of
         ('!':key) -> do
-            putStrLn $ "*** The backend '" ++ s ++ "' is deprecated."
-            putStrLn $ "    Please use '" ++ key ++ "' instead."
+            hPutStrLn stderr $ "*** The backend '" ++ s ++ "' is deprecated."
+            hPutStrLn stderr $ "    Please use '" ++ key ++ "' instead."
             Map.lookup key generators
         key -> Map.lookup key generators