<+> +base

(<+>) :: ArrowPlus a => a b c -> a b c -> a b c
base Control.Arrow