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/Command.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Command.hs')

diff --git a/src/Command.hs b/src/Command.hs
index 1ef52ed..452be9d 100644
--- a/src/Command.hs
+++ b/src/Command.hs
@@ -99,6 +99,9 @@ tfail err = liftIO $ do
     T.hPutStrLn stderr err
     exitFailure
 
+instance MonadOutput CommandExec where
+    getOutput = CommandExec (asks ciOutput)
+
 data CommandInput = CommandInput
     { ciOptions :: CommonOptions
     , ciRootPath :: FilePath
@@ -148,8 +151,5 @@ cmdEvalWith :: (EvalInput -> EvalInput) -> Eval a -> CommandExec a
 cmdEvalWith f ev = do
     either (tfail . textEvalError) return =<< liftIO . runEval ev . f =<< getEvalInput
 
-getOutput :: CommandExec Output
-getOutput = CommandExec (asks ciOutput)
-
 getStorageDir :: CommandExec FilePath
 getStorageDir = CommandExec (asks ciStorageDir)
-- 
cgit v1.2.3