Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Docx reader: Clean up commented-out function

Browse source 
A residue of a recent change was left around in the form of a
commented-out function. Let's clean that up.
This commit is contained in:
Jesse Rosenthal 2015-11-18 14:06:13 -05:00
parent 186a955bd0
commit da4103bc42
1 changed files with 0 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Text/Pandoc/Readers/Docx/Parse.hs
View file

@ -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