parseCode :: String -> String -> Either ParseError [Proc]
parseCode file inp = parse (many proc) file inp
parseCode :: String -> String -> Either ParseError [Proc]
parseCode file inp = parse (many proc) file inp
parseCode file inp = parse (many proc) file inp