From 3e5622be73ae004dec3e5f164ae77ef4b92c57f6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Tue, 27 May 2025 22:30:52 +0200 Subject: =?UTF-8?q?Replace=20=E2=80=98handleError=E2=80=99=20usage=20for?= =?UTF-8?q?=20older=20mtl?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/Eval.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') 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 -- cgit v1.2.3