@@ -857,8 +857,8 @@ elemToRun ns element
857857 notes <- asks envNotes
858858 case lookupEndnote enId notes of
859859 Just e -> do bps <- mapD (elemToBodyPart ns) (elChildren e)
860− return $ Footnote bps
861− Nothing -> return $ Footnote []
860+ return $ Endnote bps
861+ Nothing -> return $ Endnote []
862862elemToRun ns element
863863 | isElem ns "w" "r" element = do
864864 runElems <- elemToRunElems ns element