From da4103bc42c2b1d41d5b75f70344f1e3c443dbbb Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Wed, 18 Nov 2015 14:06:13 -0500 Subject: 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. --- src/Text/Pandoc/Readers/Docx/Parse.hs | 7 ------- 1 file changed, 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 -- cgit v1.2.3