From 387d63dfbc9cf5b71819461fac2397b57caeb3e4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Tue, 11 Mar 2025 21:06:16 +0100 Subject: Checkout unstaged changes in working directory --- src/Command.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Command.hs') diff --git a/src/Command.hs b/src/Command.hs index 599bd90..7ca257a 100644 --- a/src/Command.hs +++ b/src/Command.hs @@ -15,6 +15,7 @@ module Command ( getTerminalOutput, ) where +import Control.Monad.Catch import Control.Monad.Except import Control.Monad.Reader @@ -83,7 +84,7 @@ instance CommandArgumentsType [ Text ] where newtype CommandExec a = CommandExec (ReaderT CommandInput IO a) - deriving (Functor, Applicative, Monad, MonadIO) + deriving (Functor, Applicative, Monad, MonadIO, MonadThrow, MonadCatch, MonadMask) instance MonadFail CommandExec where fail = tfail . T.pack -- cgit v1.2.3