one more fix in error

ethereum · Apr 17, 2024 · 9b67d5d · 9b67d5d
1 parent 5f0ab5c
commit 9b67d5d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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