Changeset 4 for trunk/YamlReference/Text/Yaml/Reference.hs

Timestamp:

05/23/07 19:47:51 (19 months ago)

Author:

oren

Message:

Fix a bug (greedy assigment of properties to collection instead of to entry, ypaste # 6).

Files:

• trunk/YamlReference/Text/Yaml/Reference.hs (modified) (2 diffs)

trunk/YamlReference/Text/Yaml/Reference.hs

@@ -470 +470 @@
 -- that it is that easy to draw the line - is @sLine@ generic or specific?).
 data State = State {
-    sName         :: !String,          -- ^ The input name for error messages.
-    sEncoding     :: !Encoding,        -- ^ The input UTF encoding.
-    sDecision     :: !String,          -- ^ Current decision name.
-    sLimit        :: !Int,             -- ^ Lookahead characters limit.
-    sForbidden    :: !(Maybe Pattern), -- ^ Pattern we must not enter into.
-    sIsPeek       :: !Bool,            -- ^ Disables token generation.
-    sChars        :: ![Char],          -- ^ (Reversed) characters collected for a token.
-    sOffset       :: !Int,             -- ^ Offset in characters in the input.
-    sLine         :: !Int,             -- ^ Builds on YAML's line break definition.
-    sColumn       :: !Int,             -- ^ Actually character number - we hate tabs.
-    sCode         :: !Code,            -- ^ Of token we are collecting chars for.
-    sLast         :: !Char,            -- ^ Last matched character.
-    sInput        :: ![Char]           -- ^ The decoded input characters.
+    sName      :: !String,          -- ^ The input name for error messages.
+    sEncoding  :: !Encoding,        -- ^ The input UTF encoding.
+    sDecision  :: !String,          -- ^ Current decision name.
+    sLimit     :: !Int,             -- ^ Lookahead characters limit.
+    sForbidden :: !(Maybe Pattern), -- ^ Pattern we must not enter into.
+    sIsPeek    :: !Bool,            -- ^ Disables token generation.
+    sChars     :: ![Char],          -- ^ (Reversed) characters collected for a token.
+    sOffset    :: !Int,             -- ^ Offset in characters in the input.
+    sLine      :: !Int,             -- ^ Builds on YAML's line break definition.
+    sColumn    :: !Int,             -- ^ Actually character number - we hate tabs.
+    sCode      :: !Code,            -- ^ Of token we are collecting chars for.
+    sLast      :: !Char,            -- ^ Last matched character.
+    sInput     :: ![Char]           -- ^ The decoded input characters.
   }
 
@@ -1414 +1414 @@
                  $ PAT(ns_s_flow_map_entries)
                  $ PAT(ns_s_flow_seq_entries)
-                 $ PAT(s_l__block_content)
+                 $ PAT(s_l__block_collection)
                  $ PAT(s_l__block_in_block)
                  $ PAT(s_l__block_indented)
                  $ PAT(s_l__block_node)
+                 $ PAT(s_l__block_scalar)
                  $ PAT(s_ns_flow_map_explicit_empty)
                  $ PAT(s_ns_flow_map_explicit_entry)