From 1de8d4d08788ef24f69f9f90266604854996080e Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal <jrosenthal@jhu.edu> Date: Fri, 27 Jun 2014 11:45:06 -0400 Subject: Docx Reader: Simplify makeHeaderAnchors Using pattern guard, in preparation for doing some more complicated stuff with it (recording header anchors, so we can change them to auto ids.) --- src/Text/Pandoc/Readers/Docx.hs | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs index 0c52b1acb..9aaf1d340 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -306,14 +306,11 @@ dummyAnchors :: [String] dummyAnchors = ["_GoBack"] makeHeaderAnchor :: Block -> Block -makeHeaderAnchor h@(Header n (_, classes, kvs) ils) = - case filter isAnchorSpan ils of - [] -> h - (x@(Span (ident, _, _) _) : xs) -> - case ident `elem` dummyAnchors of - True -> h - False -> Header n (ident, classes, kvs) (ils \\ (x:xs)) - _ -> h +makeHeaderAnchor (Header n (_, classes, kvs) ils) + | (x : xs) <- filter isAnchorSpan ils + , (Span (ident, _, _) _) <- x + , notElem ident dummyAnchors = + Header n (ident, classes, kvs) (ils \\ (x:xs)) makeHeaderAnchor blk = blk parPartsToInlines :: [ParPart] -> DocxContext [Inline] -- cgit v1.2.3