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