JATS reader: fix typo ("lable" instead of "label")

2018-07-02 18:31:46 +03:00 · 2018-07-02 18:31:46 +03:00 · 5479ea300a
commit 5479ea300a
parent f6dfb632ff
1 changed files with 1 additions and 1 deletions
--- a/src/Text/Pandoc/Readers/JATS.hs
+++ b/src/Text/Pandoc/Readers/JATS.hs
@ -191,7 +191,7 @@ parseBlock (Elem e) =
                    listType -> do
                      let start = fromMaybe 1 $
                                  (strContent <$> (filterElement (named "list-item") e
-                                               >>= filterElement (named "lable")))
+                                               >>= filterElement (named "label")))
                                   >>= safeRead
                      orderedListWith (start, parseListStyleType listType, DefaultDelim)
                        <$> listitems