-- Note: these "number" parsers actually return (), because they are used to
-- recognize branch lengths in Newick, which are not used in the classifier.
-- They are only needed to allow phylograms to parse (otherwise only cladograms
-- would be accepted).

digits :: Parser ()
digits = many digit >> return ()
digits :: Parser ()
digits = many digit >> return ()
digits = many digit >> return ()