Muse writer: TODO on escaping list markers

jgm · Mar 8, 2017 · b9d82f5 · b9d82f5
1 parent 6175bed
commit b9d82f5
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
@@ -116,9 +116,12 @@ blockListToMuse blocks = do
 blockToMuse :: PandocMonad m
             => Block         -- ^ Block element
             -> StateT WriterState m Doc
-blockToMuse (Plain inlines) = inlineListToMuse inlines
-blockToMuse (Para inlines) = do
+blockToMuse (Plain inlines) = do
   contents <- inlineListToMuse inlines
+  -- TODO: escape list markers
+  return contents
+blockToMuse (Para inlines) = do
+  contents <- blockToMuse (Plain inlines)
   return $ contents <> blankline
 blockToMuse (LineBlock lns) = do
   let splitStanza [] = []