8 lines
182 B
Haskell
8 lines
182 B
Haskell
{-# LANGUAGE DerivingVia #-}
|
|
module Publish where
|
|
|
|
import Data.Functor.Contravariant
|
|
|
|
newtype Publish m a = Publish { publish :: a -> m () }
|
|
deriving Contravariant via (Op (m ()))
|