From 9b67d5d9db7c6a2605be11a434694dc826241585 Mon Sep 17 00:00:00 2001 From: zoep Date: Wed, 17 Apr 2024 17:23:10 +0300 Subject: [PATCH] one more fix in error --- src/Act/Error.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Act/Error.hs b/src/Act/Error.hs index a68242d4..1670b312 100644 --- a/src/Act/Error.hs +++ b/src/Act/Error.hs @@ -18,8 +18,6 @@ module Act.Error (module Act.Error) where import Data.List (find) import Data.List.NonEmpty as NE import Data.Validation as Act.Error -import Data.Semigroup -import Data.Maybe import Act.Syntax.Untyped (Pn) @@ -69,4 +67,6 @@ findSuccess d comp = case find valid comp of concatError :: Error e a -> [Error e a] -> Error e a -concatError def l = foldl (*>) def l +concatError def = \case + [] -> def + x:xs -> foldl (*>) x xs