add missing ListContinuationBlock

fperrad · Mar 28, 2009 · 9f70116 · 9f70116
1 parent 669e593
commit 9f70116
Showing 1 changed file with 18 additions and 5 deletions.
diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -190,12 +190,16 @@ method BulletListItem($/) {
 }
 
 method ListItem($/) {
-    my $mast := Markdown::ListItem.new();
-    $mast.push( $( $<ListBlock> ) );
-    for $<ListContinuationBlock> {
-        $mast.push( $( $_ ) );
+    if ( $<ListContinuationBlock> ) {
+        my $mast := Markdown::Para.new( $( $<ListBlock> ) );
+        for $<ListContinuationBlock> {
+            $mast.push( $( $_ ) );
+        }
+        make Markdown::ListItem.new( $mast );
+    }
+    else {
+        make Markdown::ListItem.new( $( $<ListBlock> ) );
     }
-    make $mast;
 }
 
 method ListBlock($/) {
@@ -206,6 +210,15 @@ method ListBlock($/) {
     make $mast;
 }
 
+method ListContinuationBlock($/) {
+    my $mast := Markdown::Node.new();
+    for $<ListBlock> {
+        $mast.push( Markdown::Word.new( :text( "\n" ) ) );
+        $mast.push( $( $_ ) );
+    }
+    make $mast;
+}
+
 method OrderedList($/, $key) {
     make $( $/{$key} );
 }