@@ -239,8 +239,7 @@ blockToRST (Table caption _ widths headers rows) = do
239239 middle = hcat $ intersperse sep' blocks
240240 let makeRow = hpipeBlocks . zipWith lblock widthsInChars
241241 let head' = makeRow headers'
242− rows' <- mapM (\row -> do cols <- mapM blockListToRST row
243− return $ makeRow cols) rows
242+ let rows' = map makeRow rawRows
244243 let border ch = char '+' <> char ch <>
245244 (hcat $ intersperse (char ch <> char '+' <> char ch) $
246245 map (\l -> text $ replicate l ch) widthsInChars) <>
@@ -427,7 +426,7 @@ inlineToRST (Image alternate (source, tit)) = do
427426 return $ "|" <> label <> "|"
428427inlineToRST (Note contents) = do
429428 -- add to notes in state
430− notes <- get >>= return . stNotes
429+ notes <- gets stNotes
431430 modify $ \st -> st { stNotes = contents:notes }
432431 let ref = show $ (length notes) + 1
433432 return $ " [" <> text ref <> "]_"