@@ -601,7 +601,7 @@ inBraces :: BibParser Text
601601inBraces = do
602602 char '{'
603603 res <- manyTill
604− ( (T.pack <$> many1 (noneOf "{}\\"))
604+ ( take1WhileP (\c -> c /= '{' && c /= '}' && c /= '\\')
605605 <|> (char '\\' >> ( (char '{' >> return "\\{")
606606 <|> (char '}' >> return "\\}")
607607 <|> return "\\"))
@@ -616,7 +616,7 @@ inQuotes :: BibParser Text
616616inQuotes = do
617617 char '"'
618618 T.concat <$> manyTill
619− ( (T.pack <$> many1 (noneOf "\"\\{"))
619+ ( take1WhileP (\c -> c /= '{' && c /= '"' && c /= '\\')
620620 <|> (char '\\' >> T.cons '\\' . T.singleton <$> anyChar)
621621 <|> braced <$> inBraces
622622 ) (char '"')