From 288065cfd44eb02f9ef4e6c9b901e14776246dbb Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Mon, 22 Jan 2018 16:24:44 +0300
Subject: [PATCH] Muse writer: indent lists inside Div

---
 src/Text/Pandoc/Writers/Muse.hs | 2 +-
 test/Tests/Writers/Muse.hs      | 4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index fbebe5c20..23aa98866 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -259,7 +259,7 @@ blockToMuse (Table caption _ _ headers rows) =  do
          $$ body
          $$ (if null caption then empty else " |+ " <> caption' <> " +|")
          $$ blankline
-blockToMuse (Div _ bs) = blockListToMuse bs
+blockToMuse (Div _ bs) = flatBlockListToMuse bs
 blockToMuse Null = return empty
 
 -- | Return Muse representation of notes.
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index 158f80f67..ee4c76587 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -282,7 +282,9 @@ tests = [ testGroup "block elements"
                           , " |+ Table 1 +|"
                           ]
             ]
-          -- Div is trivial
+          , "div with bullet list" =:
+            divWith nullAttr (bulletList [para $ text "foo"]) =?>
+            unlines [ " - foo" ] -- Making sure bullets are indented
           -- Null is trivial
           ]
         , testGroup "inline elements"