d55346c · typeable/pandoc

git.iko.soy/typeable/pandoc

Simplified keyTable, using assumption that key blocks are not

inside other block elements (an assumption that the Markdown reader uses in making its initial pass anyway). git-svn-id: https://pandoc.googlecode.com/svn/trunk@574 788f1e2b-df1e-0410-8736-df70ead52e1b

commitd55346ca9a8fcf773d40d1e1d938d71131aec645 authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> dateMon 12 Mar 2007, 00:23 (20 years ago) parent7bf7aba

1 file changed−20

compare with master

unifiedsplit

src/Text/Pandoc/Shared.hs−20

src/Text/Pandoc/Shared.hs−20

@@ -433,26 +433,6 @@ keyTable ((Key ref target):lst) = (((ref, target):table), rest)

433433 where (table, rest) = keyTable lst

434434keyTable (Null:lst) = keyTable lst -- get rid of Nulls

435435keyTable (Blank:lst) = keyTable lst -- get rid of Blanks

436−keyTable ((BlockQuote blocks):lst) = ((table1 ++ table2),

437− ((BlockQuote rest1):rest2))

438− where (table1, rest1) = keyTable blocks

439− (table2, rest2) = keyTable lst

440−keyTable ((Note ref blocks):lst) = ((table1 ++ table2),

441− ((Note ref rest1):rest2))

442− where (table1, rest1) = keyTable blocks

443− (table2, rest2) = keyTable lst

444−keyTable ((OrderedList blockLists):lst) = ((table1 ++ table2),

445− ((OrderedList rest1):rest2))

446− where results = map keyTable blockLists

447− rest1 = map snd results

448− table1 = concatMap fst results

449− (table2, rest2) = keyTable lst

450−keyTable ((BulletList blockLists):lst) = ((table1 ++ table2),

451− ((BulletList rest1):rest2))

452− where results = map keyTable blockLists

453− rest1 = map snd results

454− table1 = concatMap fst results

455− (table2, rest2) = keyTable lst

456436keyTable (other:lst) = (table, (other:rest))

457437 where (table, rest) = keyTable lst

458438