aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2015-11-18 14:06:13 -0500
committerJesse Rosenthal <jrosenthal@jhu.edu>2015-11-18 14:06:13 -0500
commitda4103bc42c2b1d41d5b75f70344f1e3c443dbbb (patch)
treecdb554f36c222131553bbbf02d87db05b304357e
parent186a955bd03e001201ece26442bdf25203714c14 (diff)
downloadpandoc-da4103bc42c2b1d41d5b75f70344f1e3c443dbbb.tar.gz
Docx reader: Clean up commented-out function
A residue of a recent change was left around in the form of a commented-out function. Let's clean that up.
-rw-r--r--src/Text/Pandoc/Readers/Docx/Parse.hs7
1 files changed, 0 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Readers/Docx/Parse.hs b/src/Text/Pandoc/Readers/Docx/Parse.hs
index 3723c71a5..5910a476b 100644
--- a/src/Text/Pandoc/Readers/Docx/Parse.hs
+++ b/src/Text/Pandoc/Readers/Docx/Parse.hs
@@ -408,13 +408,6 @@ archiveToMedia :: Archive -> Media
archiveToMedia zf =
mapMaybe (getMediaPair zf) (filter filePathIsMedia (filesInArchive zf))
--- lookupLevel :: String -> String -> Numbering -> Maybe Level
--- lookupLevel numId ilvl (Numbering _ numbs absNumbs) = do
--- absNumId <- lookup numId $ map (\(Numb nid absnumid) -> (nid, absnumid)) numbs
--- lvls <- lookup absNumId $ map (\(AbstractNumb aid ls) -> (aid, ls)) absNumbs
--- lvl <- lookup ilvl $ map (\l@(i, _, _, _) -> (i, l)) lvls
--- return lvl
-
lookupLevel :: String -> String -> Numbering -> Maybe Level
lookupLevel numId ilvl (Numbering _ numbs absNumbs) = do
absNumId <- lookup numId $ map (\(Numb nid absnumid) -> (nid, absnumid)) numbs