From 0b3b675bfc9e78ee563d526f17184e317a962ae8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 5 Jul 2026 22:57:49 +0200
Subject: Move watch-branch test event to Expression module

---
 src/Output.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/Output.hs')

diff --git a/src/Output.hs b/src/Output.hs
index e9ce718..293f598 100644
--- a/src/Output.hs
+++ b/src/Output.hs
@@ -3,6 +3,7 @@ module Output (
     OutputType(..),
     OutputEvent(..),
     OutputFootnote(..),
+    MonadOutput(..),
 
     withOutput,
     outputTerminal,
@@ -56,6 +57,10 @@ data OutputFootnote = OutputFootnote
     deriving (Eq)
 
 
+class Monad m => MonadOutput m where
+    getOutput :: m Output
+
+
 withOutput :: [ OutputType ] -> (Output -> IO a) -> IO a
 withOutput types inner = do
     lock <- newMVar ()
-- 
cgit v1.2.3