Split to multiproject

reddit_lib/src/Reddit/Publish.hs

@@ -0,0 +1,9 @@
+{-# 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)