diff options
| -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 |