semigroupoids-syntax-0.0.1: src/Data/Functor/Apply/Syntax.hs

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE RebindableSyntax #-}
{-# LANGUAGE Safe #-}

module Data.Functor.Apply.Syntax(
  (>>)
) where

import Data.Functor.Apply(Apply((.>)))

(>>) ::
  Apply f =>
  f a
  -> f b
  -> f b
(>>) =
  (.>)

infixl 1 >>