@@ -601,7 +601,7 @@ inBraces :: BibParser Text
601inBraces = do
601inBraces = do
603 res <- manyTill
603 res <- manyTill
604− ( (T.pack <$> many1 (noneOf "{}\\"))
604+ ( take1WhileP (\c -> c /= '{' && c /= '}' && c /= '\\')
605 <|> (char '\\' >> ( (char '{' >> return "\\{")
605 <|> (char '\\' >> ( (char '{' >> return "\\{")
606 <|> (char '}' >> return "\\}")
606 <|> (char '}' >> return "\\}")
607 <|> return "\\"))
607 <|> return "\\"))
@@ -616,7 +616,7 @@ inQuotes :: BibParser Text
616inQuotes = do
616inQuotes = do
618 T.concat <$> manyTill
618 T.concat <$> manyTill
619− ( (T.pack <$> many1 (noneOf "\"\\{"))
619+ ( take1WhileP (\c -> c /= '{' && c /= '"' && c /= '\\')
620 <|> (char '\\' >> T.cons '\\' . T.singleton <$> anyChar)
620 <|> (char '\\' >> T.cons '\\' . T.singleton <$> anyChar)
621 <|> braced <$> inBraces
621 <|> braced <$> inBraces
622 ) (char '"')
622 ) (char '"')