|< package:co-log-core

(>|<) :: LogAction m a -> LogAction m b -> LogAction m (Either a b)
co-log-core Colog.Core.Action
Operator version of choose id. 
>>> dontPrintInt = LogAction (const (putStrLn "Not printing Int"))

>>> Left 1 &> (dontPrintInt >|< logStringStdout)
Not printing Int

>>> (dontPrintInt >|< logStringStdout) <& Right ":)"
:)