@@ -327,7 +327,7 @@ maybeExplicitBlock :: String -- ^ block tag name
327 -> Parser [Char] ParserState Block
327 -> Parser [Char] ParserState Block
328maybeExplicitBlock name blk = try $ do
328maybeExplicitBlock name blk = try $ do
329 optional $ try $ string name >> optional attributes >> char '.' >>
329 optional $ try $ string name >> optional attributes >> char '.' >>
330− ((try whitespace) <|> endline)
330+ optional whitespace >> optional endline
@@ -427,7 +427,10 @@ wordBoundaries = markupChars ++ stringBreakers
428-- | Parse a hyphened sequence of words
428-- | Parse a hyphened sequence of words
429hyphenedWords :: Parser [Char] ParserState String
429hyphenedWords :: Parser [Char] ParserState String
430−hyphenedWords = intercalate "-" <$> sepBy1 wordChunk (char '-')
430+hyphenedWords = do
432+ xs <- many (try $ char '-' >> wordChunk)
433+ return $ intercalate "-" (x:xs)
432wordChunk :: Parser [Char] ParserState String
435wordChunk :: Parser [Char] ParserState String
433wordChunk = try $ do
436wordChunk = try $ do