diff --git a/library/Potoki/Core/Produce.hs b/library/Potoki/Core/Produce.hs
--- a/library/Potoki/Core/Produce.hs
+++ b/library/Potoki/Core/Produce.hs
@@ -85,6 +85,13 @@
                   getElement
     return fetch
 
+instance Semigroup (Produce a) where
+  (<>) = (<|>)
+
+instance Monoid (Produce a) where
+  mempty = empty
+  mappend = (<>)
+
 {-# INLINABLE list #-}
 list :: [input] -> Produce input
 list inputList =
diff --git a/potoki-core.cabal b/potoki-core.cabal
--- a/potoki-core.cabal
+++ b/potoki-core.cabal
@@ -1,7 +1,7 @@
 name:
   potoki-core
 version:
-  2.2.2.1
+  2.2.3
 synopsis:
   Low-level components of "potoki"
 description: