aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/Docx
diff options
context:
space:
mode:
authorEmily Bourke <undergroundquizscene@gmail.com>2021-04-11 21:42:53 +0100
committerAlbert Krewinkel <albert@zeitkraut.de>2021-05-28 20:15:23 +0200
commit44484d0dee1bd095240b9faf26f8d1dad8e560ea (patch)
treed7aea87989f34d3e85b9690a91f84cf0e33a314c /src/Text/Pandoc/Readers/Docx
parent4842c5fb828c3c34d816fa7bccd4656857742a0b (diff)
downloadpandoc-44484d0dee1bd095240b9faf26f8d1dad8e560ea.tar.gz
Docx reader: Read table column widths.
Diffstat (limited to 'src/Text/Pandoc/Readers/Docx')
-rw-r--r--src/Text/Pandoc/Readers/Docx/Parse.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Docx/Parse.hs b/src/Text/Pandoc/Readers/Docx/Parse.hs
index 7325ff300..978d6ff3a 100644
--- a/src/Text/Pandoc/Readers/Docx/Parse.hs
+++ b/src/Text/Pandoc/Readers/Docx/Parse.hs
@@ -563,7 +563,7 @@ elemToTblGrid :: NameSpaces -> Element -> D TblGrid
elemToTblGrid ns element | isElem ns "w" "tblGrid" element =
let cols = findChildrenByName ns "w" "gridCol" element
in
- mapD (\e -> maybeToD (findAttrByName ns "w" "val" e >>= stringToInteger))
+ mapD (\e -> maybeToD (findAttrByName ns "w" "w" e >>= stringToInteger))
cols
elemToTblGrid _ _ = throwError WrongElem