(+>) :: Eq t => Parser t -> Parser t -> Parser t
(f +> g) ts
    | qf        = g rf
    | otherwise = (False, ts)
    where
        (qf, rf) = f ts

-- Choice
(+>) :: Eq t => Parser t -> Parser t -> Parser t
(f +> g) ts
    | qf        = g rf
    | otherwise = (False, ts)
    where
        (qf, rf) = f ts

-- Choice
(+>) :: Eq t => Parser t -> Parser t -> Parser t
(f +> g) ts
    | qf        = g rf
    | otherwise = (False, ts)
    where
        (qf, rf) = f ts

-- Choice