diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-05-27 22:30:52 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-05-27 22:30:52 +0200 |
| commit | 3e5622be73ae004dec3e5f164ae77ef4b92c57f6 (patch) | |
| tree | 1f3e019cd32d99502ac0fa6a42042f2260fe93ba | |
| parent | ad922b3e1a817333b633891ea11afc9b3dbf6a32 (diff) | |
Replace ‘handleError’ usage for older mtl
| -rw-r--r-- | src/Eval.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Eval.hs b/src/Eval.hs index 97aba2f..f064cb1 100644 --- a/src/Eval.hs +++ b/src/Eval.hs @@ -119,7 +119,7 @@ evalJobSet revisionOverrides decl = do , jobsetJobsEither = jobs } where - handleToEither = handleError (return . Left . T.unpack . textEvalError) . fmap Right + handleToEither = flip catchError (return . Left . T.unpack . textEvalError) . fmap Right evalRepo :: Maybe RepoName -> Eval Repo evalRepo Nothing = asks eiContainingRepo >>= \case |