diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Revision history for eventuo11y
 
+## 0.3.1.0 -- 2022-10-04
+
+Add causedEventBackend
+
 ## 0.3.0.0 -- 2022-10-03
 
 Add single-modifier exports from BackendModification
diff --git a/eventuo11y.cabal b/eventuo11y.cabal
--- a/eventuo11y.cabal
+++ b/eventuo11y.cabal
@@ -1,6 +1,6 @@
 cabal-version:      3.0
 name:               eventuo11y
-version:            0.3.0.0
+version:            0.3.1.0
 synopsis:           An event-oriented observability library
 description:
   Instrument your Haskell codebase with wide, semantically meaningful events.
@@ -26,7 +26,7 @@
   See "Observe.Event.Backend" for documentation on writing an
   @EventBackend@.
 
-  See [Example.hs](https://github.com/shlevy/eventuo11y/tree/v0.3.0.0/Example.hs) for an example.
+  See [Example.hs](https://github.com/shlevy/eventuo11y/tree/v0.3.1.0/Example.hs) for an example.
 
   See [eventuo11y-batteries](https://hackage.haskell.org/package/eventuo11y-batteries) for miscellaneous
   framework-specific helpers.
diff --git a/src/Observe/Event.hs b/src/Observe/Event.hs
--- a/src/Observe/Event.hs
+++ b/src/Observe/Event.hs
@@ -58,6 +58,7 @@
     -- * 'EventBackend's
     EventBackend,
     subEventBackend,
+    causedEventBackend,
     unitEventBackend,
     pairEventBackend,
     hoistEventBackend,
@@ -323,3 +324,12 @@
   Event m r s f ->
   EventBackend m r s
 subEventBackend Event {..} = modifyEventBackend (setAncestor $ referenceImpl impl) backend
+
+-- | An 'EventBackend' where every otherwise causeless event will be marked
+-- as caused by the given 'Event'.
+causedEventBackend ::
+  (Monad m) =>
+  -- | The parent event.
+  Event m r s f ->
+  EventBackend m r s
+causedEventBackend Event {..} = modifyEventBackend (setInitialCause $ referenceImpl impl) backend
diff --git a/src/Observe/Event/BackendModification.hs b/src/Observe/Event/BackendModification.hs
--- a/src/Observe/Event/BackendModification.hs
+++ b/src/Observe/Event/BackendModification.hs
@@ -38,15 +38,17 @@
 -- that appears in the type of our capabilities and ensure it's liftable to both our application monad and the
 -- capability's base instantiation.
 module Observe.Event.BackendModification
-  ( EventBackendModifier(..)
-  , EventBackendModifiers
-  , modifyEventBackend
-  , -- * Simple EventBackendModifiers
-    unmodified
-  , silence
-  , setAncestor
-  , setInitialCause
-  ) where
+  ( EventBackendModifier (..),
+    EventBackendModifiers,
+    modifyEventBackend,
+
+    -- * Simple EventBackendModifiers
+    unmodified,
+    silence,
+    setAncestor,
+    setInitialCause,
+  )
+where
 
 import Control.Category
 import Observe.Event.Backend