convertExpr (P.InfixOperation op l r) = do
  convertedL <- convertExpr l
  convertedR <- convertExpr r
  return $ E.InfixOperation op convertedL convertedR
convertExpr (P.InfixOperation op l r) = do
  convertedL <- convertExpr l
  convertedR <- convertExpr r
  return $ E.InfixOperation op convertedL convertedR
convertExpr (P.InfixOperation op l r) = do
  convertedL <- convertExpr l
  convertedR <- convertExpr r
  return $ E.InfixOperation op convertedL convertedR