git.iko.soy/typeable/pandoc
on master help sign in
ODT reader: deal gracefully with missing `<office:font-face-decls/>`.
dae3a09John MacFarlane
src/Text/Pandoc/Readers/Odt/StyleReader.hs+1−1
compare with master
unifiedsplit
@@ -138,7 +138,7 @@ fontPitchReader = executeIn NsOffice "font-face-decls" (
138 lookupDefaultingAttr NsStyle "font-pitch"
138 lookupDefaultingAttr NsStyle "font-pitch"
139 ))
139 ))
140 >>?^ ( M.fromList . foldl accumLegalPitches [] )
140 >>?^ ( M.fromList . foldl accumLegalPitches [] )
141− )
141+ ) `ifFailedDo` (returnV (Right M.empty))
142 where accumLegalPitches ls (Nothing,_) = ls
142 where accumLegalPitches ls (Nothing,_) = ls
143 accumLegalPitches ls (Just n,p) = (n,p):ls
143 accumLegalPitches ls (Just n,p) = (n,p):ls
144
144