@@ -85,8 +85,8 @@ pandocToMuse (Pandoc meta blocks) = do
85 then Just $ writerColumns opts
85 then Just $ writerColumns opts
86 else Nothing
86 else Nothing
87 metadata <- metaToJSON opts
87 metadata <- metaToJSON opts
88− (fmap (render colwidth) . blockListToMuse)
88+ (fmap (render Nothing) . blockListToMuse)
89− (fmap (render colwidth) . inlineListToMuse)
89+ (fmap (render Nothing) . inlineListToMuse)
91 body <- blockListToMuse blocks
91 body <- blockListToMuse blocks
92 notes <- liftM (reverse . stNotes) get >>= notesToMuse
92 notes <- liftM (reverse . stNotes) get >>= notesToMuse