@@ -208,6 +208,7 @@ extractData bs = do
208 return (M.insert "text/html" (TextualData (T.pack raw)) mmap, meta)
208 return (M.insert "text/html" (TextualData (T.pack raw)) mmap, meta)
209 go (mmap, meta) (RawBlock (Format "latex") raw) =
209 go (mmap, meta) (RawBlock (Format "latex") raw) =
210 return (M.insert "text/latex" (TextualData (T.pack raw)) mmap, meta)
210 return (M.insert "text/latex" (TextualData (T.pack raw)) mmap, meta)
211+ go (mmap, meta) (Div _ bs') = foldM go (mmap, meta) bs'
211 go (mmap, meta) b = (mmap, meta) <$ report (BlockNotRendered b)
212 go (mmap, meta) b = (mmap, meta) <$ report (BlockNotRendered b)
213pairsToJSONMeta :: [(String, String)] -> JSONMeta
214pairsToJSONMeta :: [(String, String)] -> JSONMeta