diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-03-11 21:06:16 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-03-11 21:06:16 +0100 |
| commit | 387d63dfbc9cf5b71819461fac2397b57caeb3e4 (patch) | |
| tree | 1f0f416f38d27a1bcfa7979c51ae9d24507c0c92 /src/Command.hs | |
| parent | 8e8cbbd3bd15d6557a25ca83ec31cdec8acfdba6 (diff) | |
Checkout unstaged changes in working directory
Diffstat (limited to 'src/Command.hs')
| -rw-r--r-- | src/Command.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |