|
{-# LANGUAGE DerivingVia #-}
|
|
module Reddit.Publish where
|
|
|
|
import Data.Functor.Contravariant
|
|
import Data.Monoid (Ap(..))
|
|
|
|
newtype Publish m a = Publish { publish :: a -> m () }
|
|
deriving Contravariant via (Op (m ()))
|
|
deriving (Monoid, Semigroup) via (Op (Ap m ()) a)
|