da4103b · typeable/pandoc

git.iko.soy/typeable/pandoc

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.

commitda4103bc42c2b1d41d5b75f70344f1e3c443dbbb authorJesse Rosenthal <jrosenthal@jhu.edu> dateWed 18 Nov 2015, 14:06 (11 years ago) parent186a955

1 file changed−7

unifiedsplit

src/Text/Pandoc/Readers/Docx/Parse.hs−7

@@ -408,13 +408,6 @@ archiveToMedia :: Archive -> Media

408408archiveToMedia zf =

409409 mapMaybe (getMediaPair zf) (filter filePathIsMedia (filesInArchive zf))

410410

411−-- lookupLevel :: String -> String -> Numbering -> Maybe Level

412−-- lookupLevel numId ilvl (Numbering _ numbs absNumbs) = do

413−-- absNumId <- lookup numId $ map (\(Numb nid absnumid) -> (nid, absnumid)) numbs

414−-- lvls <- lookup absNumId $ map (\(AbstractNumb aid ls) -> (aid, ls)) absNumbs

415−-- lvl <- lookup ilvl $ map (\l@(i, _, _, _) -> (i, l)) lvls

416−-- return lvl

417−

418411lookupLevel :: String -> String -> Numbering -> Maybe Level

419412lookupLevel numId ilvl (Numbering _ numbs absNumbs) = do

420413 absNumId <- lookup numId $ map (\(Numb nid absnumid) -> (nid, absnumid)) numbs