Changeset 16409 for third-party

Timestamp:

05/18/07 00:09:00 (18 months ago)

Author:

audreyt

Message:

* Data.Yaml.Syck: Misc code cleanups.

Files:

• third-party/HsSyck/Data/Yaml/Syck.hsc (modified) (2 diffs)

third-party/HsSyck/Data/Yaml/Syck.hsc

@@ -242 +242 @@
     let makeRegularNode = do
         len     <- syckNodeLength kind syckNode
-        parseNode kind parser syckNode len nodeId
+        parseNode kind parser syckNode len symId
 
     node    <- case kind of
@@ -264 +264 @@
             Hash.update badancs (ptr `minusPtr` nullPtr) node
 
-    symId   <- syck_add_sym parser nodePtr
-
-    return (fromIntegral symId)
+    symId   <- fmap fromIntegral (syck_add_sym parser nodePtr)
 
     return symId