Muse reader: count only one space as part of list item marker

src/Text/Pandoc/Readers/Muse.hs

@@ -392,8 +392,8 @@ listStart marker = try $ do
   st <- stateParserContext <$> getState
   getPosition >>= \pos -> guard (st == ListItemState || sourceColumn pos /= 1)
   markerLength <- marker
-  postWhitespace <- length <$> many1 spaceChar
-  return $ preWhitespace + markerLength + postWhitespace
+  many1 spaceChar
+  return $ preWhitespace + markerLength + 1
 
 listItemContents :: PandocMonad m => Int -> MuseParser m (F Blocks)
 listItemContents markerLength = do

test/Tests/Readers/Muse.hs

@@ -527,7 +527,8 @@ tests =
          orderedListWith (1, Decimal, Period) [ para "Item1"
                                               , para "Item2"
                                               ]
-      , "Nested list" =:
+      , testGroup "Nested lists"
+        [ "Nested list" =:
           T.unlines
             [ " - Item1"
             , "   - Item2"
@@ -549,6 +550,19 @@ tests =
                                                                       ]
                                ]
                      ]
+        , "Incorrectly indented Text::Amuse nested list" =:
+          T.unlines
+            [ " - First item"
+            , "  - Not nested item"
+            ] =?>
+          bulletList [ para "First item", para "Not nested item"]
+        , "Text::Amuse includes only one space in list marker" =:
+          T.unlines
+            [ " -    First item"
+            , "   - Nested item"
+            ] =?>
+          bulletList [ para "First item" <> bulletList [ para "Nested item"]]
+        ]
       , "List continuation" =:
          T.unlines
            [ " - a"