diff options
| author | tv <tv@krebsco.de> | 2024-06-04 13:43:58 +0200 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2024-06-04 13:43:58 +0200 |
| commit | 3bd075759e68b6019e9d5896b1c889b7d5fbb967 (patch) | |
| tree | 19bdb7d288dafe0a9e37ef4de1fb738bf1741655 | |
| parent | f3ea150aca5cc86878fa10bc5b1f0918fc154e2a (diff) | |
Main: Control.Monad.{Error => Except}
| -rw-r--r-- | src/Main.hs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/Main.hs b/src/Main.hs index 7d263e3..3c62184 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -17,7 +17,7 @@ import System.IO import GHC.Stats (getRTSStats) -import Control.Monad.Error +import Control.Monad.Except import Control.Monad.Reader import Control.Monad.State import Control.Monad.Writer @@ -196,9 +196,6 @@ data ExecError = UnhandledInputError String | OtherError String -instance Error ExecError where - noMsg = OtherError "something went wrong" - prettyError :: ExecError -> String @@ -213,7 +210,7 @@ prettyError (OtherError s) = newtype VT a = VT (ReaderT VTConfig - (ErrorT ExecError + (ExceptT ExecError (WriterT [String] (StateT VTState IO ))) @@ -233,7 +230,7 @@ runVT :: VTConfig -> VTState -> VT a -> IO ((Either ExecError a, [String]), VTState) runVT cf st (VT a) = - runStateT (runWriterT (runErrorT (runReaderT a cf))) st + runStateT (runWriterT (runExceptT (runReaderT a cf))) st |