Changeset 8593

Timestamp:

01/06/06 16:08:29 (3 years ago)

Author:

audreyt

Message:

* {1=>2}.yaml Just Works now... woot :-)

Location:

src/Pugs

Files:

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

src/Pugs/Prim.hs

@@ -1560 +1560 @@
 \\n   Any       pre     Pugs::Internals::eval_haskell unsafe (Str)\
 \\n   Any       pre     Pugs::Internals::eval_yaml    safe   (Str)\
-\\n   Any       pre     yaml    safe   (rw!Any|Junction|Pair)\
+\\n   Str       pre     yaml    safe   (rw!Any|Junction|Pair)\
 \\n   Any       pre     require unsafe (?Str=$_)\
 \\n   Any       pre     use     unsafe (?Str=$_)\

src/Pugs/Prim/Yaml.hs

@@ -38 +38 @@
 dumpYaml :: Int -> Val -> Eval Val
 dumpYaml limit v = do
-    obj  <- toYaml limit =<< fromVal v
+    obj  <- toYaml limit v
     rv   <- liftIO (emitYaml obj)
     case rv of