@@ -32,7 +32,7 @@ parseBlock (Elem e) =
32 "sect5" -> sect 5
32 "sect5" -> sect 5
33 "sect6" -> sect 6
33 "sect6" -> sect 6
34 "section" -> gets dbSectionLevel >>= sect . (+1)
34 "section" -> gets dbSectionLevel >>= sect . (+1)
35− "title" -> return $ mempty
35+ "title" -> return $ mempty -- processed by sect
36 _ -> innerBlocks
36 _ -> innerBlocks
37 where innerBlocks = mconcat <$> (mapM parseBlock $ elContent e)
37 where innerBlocks = mconcat <$> (mapM parseBlock $ elContent e)
38 getInlines e' = (trimInlines . mconcat) <$>
38 getInlines e' = (trimInlines . mconcat) <$>
@@ -65,6 +65,7 @@ parseInline (Elem e) =
65 (elAttribs e) of
65 (elAttribs e) of
66 Just "strong" -> strong <$> innerInlines
66 Just "strong" -> strong <$> innerInlines
67 _ -> emph <$> innerInlines
67 _ -> emph <$> innerInlines
68+ "footnote" -> (note . mconcat) <$> (mapM parseBlock $ elContent e)
68 _ -> innerInlines
69 _ -> innerInlines
69 where innerInlines = (trimInlines . mconcat) <$>
70 where innerInlines = (trimInlines . mconcat) <$>
70 (mapM parseInline $ elContent e)
71 (mapM parseInline $ elContent e)