parseExpr :: String -> Either ParseError Expr
parseExpr xs = parse (whiteSpace tok *> expr <* eof) "interactive" xs
parseExpr :: String -> Either ParseError Expr
parseExpr xs = parse (whiteSpace tok *> expr <* eof) "interactive" xs
parseExpr xs = parse (whiteSpace tok *> expr <* eof) "interactive" xs