@@ -470,9 +470,8 @@ orderedList = try $ do
470definitionListItem :: PandocMonad m => MuseParser m (F (Inlines, [Blocks]))
470definitionListItem :: PandocMonad m => MuseParser m (F (Inlines, [Blocks]))
471definitionListItem = try $ do
471definitionListItem = try $ do
472 many spaceChar
472 many spaceChar
473− startPos <- getPosition
474− (guardDisabled Ext_amuse) <|> (guard (sourceColumn startPos /= 1)) -- Initial space is required by Amusewiki, but not Emacs Muse
475 pos <- getPosition
473 pos <- getPosition
474+ (guardDisabled Ext_amuse) <|> (guard (sourceColumn pos /= 1)) -- Initial space is required by Amusewiki, but not Emacs Muse
476 term <- trimInlinesF . mconcat <$> manyTill (choice inlineList) (string "::")
475 term <- trimInlinesF . mconcat <$> manyTill (choice inlineList) (string "::")
477 void spaceChar <|> lookAhead eol
476 void spaceChar <|> lookAhead eol
478 contents <- listItemContents' $ sourceColumn pos
477 contents <- listItemContents' $ sourceColumn pos