aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-03-12 00:23:39 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-03-12 00:23:39 +0000
commitd55346ca9a8fcf773d40d1e1d938d71131aec645 (patch)
treeb574fa8f4b7896d799b3e5e8584716add3f62717 /src
parent7bf7aba7e7a1f56e59ac90ea36496ea87b381333 (diff)
downloadpandoc-d55346ca9a8fcf773d40d1e1d938d71131aec645.tar.gz
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
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Shared.hs20
1 files changed, 0 insertions, 20 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 6ecb31757..e5d6e77df 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -433,26 +433,6 @@ keyTable ((Key ref target):lst) = (((ref, target):table), rest)
where (table, rest) = keyTable lst
keyTable (Null:lst) = keyTable lst -- get rid of Nulls
keyTable (Blank:lst) = keyTable lst -- get rid of Blanks
-keyTable ((BlockQuote blocks):lst) = ((table1 ++ table2),
- ((BlockQuote rest1):rest2))
- where (table1, rest1) = keyTable blocks
- (table2, rest2) = keyTable lst
-keyTable ((Note ref blocks):lst) = ((table1 ++ table2),
- ((Note ref rest1):rest2))
- where (table1, rest1) = keyTable blocks
- (table2, rest2) = keyTable lst
-keyTable ((OrderedList blockLists):lst) = ((table1 ++ table2),
- ((OrderedList rest1):rest2))
- where results = map keyTable blockLists
- rest1 = map snd results
- table1 = concatMap fst results
- (table2, rest2) = keyTable lst
-keyTable ((BulletList blockLists):lst) = ((table1 ++ table2),
- ((BulletList rest1):rest2))
- where results = map keyTable blockLists
- rest1 = map snd results
- table1 = concatMap fst results
- (table2, rest2) = keyTable lst
keyTable (other:lst) = (table, (other:rest))
where (table, rest) = keyTable lst