@@ -341,8 +341,10 @@ listItemToRTF :: PandocMonad m
341listItemToRTF alignment indent marker [] = return $
341listItemToRTF alignment indent marker [] = return $
342 rtfCompact (indent + listIncrement) (negate listIncrement) alignment
342 rtfCompact (indent + listIncrement) (negate listIncrement) alignment
343 (marker ++ "\\tx" ++ show listIncrement ++ "\\tab ")
343 (marker ++ "\\tx" ++ show listIncrement ++ "\\tab ")
344−listItemToRTF alignment indent marker list = do
344+listItemToRTF alignment indent marker (listFirst:listRest) = do
345− (first:rest) <- mapM (blockToRTF (indent + listIncrement) alignment) list
345+ let f = blockToRTF (indent + listIncrement) alignment
346+ first <- f listFirst
347+ rest <- mapM f listRest
346 let listMarker = "\\fi" ++ show (negate listIncrement) ++ " " ++ marker ++
348 let listMarker = "\\fi" ++ show (negate listIncrement) ++ " " ++ marker ++
347 "\\tx" ++ show listIncrement ++ "\\tab"
349 "\\tx" ++ show listIncrement ++ "\\tab"
348 let insertListMarker ('\\':'f':'i':'-':d:xs) | isDigit d =
350 let insertListMarker ('\\':'f':'i':'-':d:xs) | isDigit d =