*> parseTest (oneOf "aeiou" >> parserTrace "label") "atest" label: "test" ...
*> parseTest (oneOf "aeiou" >> parserTraced "label" (oneOf "nope")) "atest" label: "test" label backtracked parse error at (line 1, column 2): ...
parseFromFile p fname = do{ input <- readFile fname ; return (runParser p () fname input) }