@@ -32,7 +32,7 @@ parseBlock (Elem e) =
3232 "sect5" -> sect 5
3333 "sect6" -> sect 6
3434 "section" -> gets dbSectionLevel >>= sect . (+1)
35− "title" -> return $ mempty
35+ "title" -> return $ mempty -- processed by sect
3636 _ -> innerBlocks
3737 where innerBlocks = mconcat <$> (mapM parseBlock $ elContent e)
3838 getInlines e' = (trimInlines . mconcat) <$>
@@ -65,6 +65,7 @@ parseInline (Elem e) =
6565 (elAttribs e) of
6666 Just "strong" -> strong <$> innerInlines
6767 _ -> emph <$> innerInlines
68+ "footnote" -> (note . mconcat) <$> (mapM parseBlock $ elContent e)
6869 _ -> innerInlines
6970 where innerInlines = (trimInlines . mconcat) <$>
7071 (mapM parseInline $ elContent e)