@@ -1177,14 +1177,14 @@ chkCit t = do
11771177 else return $ Nothing
11781178
11791179citeMarker :: GenParser Char ParserState String
1180−citeMarker = string "[" >> manyTill (noneOf "\t\n") (string "]")
1180+citeMarker = string "[" >> manyTill anyChar (try $ string "]")
11811181
11821182parseCitation :: GenParser Char ParserState [(String,String)]
11831183parseCitation = try $ sepBy (parseLabel) (oneOf ";")
11841184
11851185parseLabel :: GenParser Char ParserState (String,String)
11861186parseLabel = try $ do
1187− res <- sepBy (skipSpaces >> many1 (noneOf "@;\n\t")) (oneOf "@")
1187+ res <- sepBy (skipMany (oneOf "\t\n ") >> many1 (noneOf "@;")) (oneOf "@")
11881188 case res of
11891189 [lab,loc] -> return (lab, loc)
11901190 [lab] -> return (lab, "" )