From aa113848a5884f95d543c2acecb55321db23b3ba Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 19 Jan 2025 14:06:29 +0100
Subject: Option to run tasks for new commits on branch

---
 src/Command.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Command.hs')

diff --git a/src/Command.hs b/src/Command.hs
index c602ba8..c765cfd 100644
--- a/src/Command.hs
+++ b/src/Command.hs
@@ -69,6 +69,9 @@ instance CommandArgumentsType (Maybe Text) where
     argsFromStrings [str] = return $ Just (T.pack str)
     argsFromStrings _ = throwError "expected at most one argument"
 
+instance CommandArgumentsType [ Text ] where
+    argsFromStrings strs = return $ map T.pack strs
+
 
 newtype CommandExec a = CommandExec (ReaderT CommandInput IO a)
     deriving (Functor, Applicative, Monad, MonadIO)
-- 
cgit v1.2.3