diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2022-08-30 09:59:22 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2022-08-30 09:59:22 +0200 |
| commit | 7a2e8e51a05b8930c1e8f50b62a8775f5bda088e (patch) | |
| tree | a78ec1c7344b03193521148fb845884239314873 /src/Text | |
| parent | 8b5fb5019897138c9e65c1c8ec73feaf341c3efa (diff) | |
MediaWiki writer: shorten code
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/MediaWiki.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs index 8e86a0634..056f54812 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -332,11 +332,9 @@ tableCell = try $ do let colspan = ColSpan . fromMaybe 1 $ safeRead =<< lookup "colspan" attribs let handledAttribs = ["align", "colspan", "rowspan"] - attribs' = foldr go [] attribs - go kv@(k, _) acc = case k of - -- drop attrib if it's already handled - _ | k `elem` handledAttribs -> acc - _ -> kv : acc + attribs' = [ (k, v) | (k, v) <- attribs + , k `notElem` handledAttribs + ] return (width, B.cellWith (toAttr attribs') align rowspan colspan bs) parseWidth :: Text -> Maybe Double |