Use sequential combination where appropriate

wolfadex · Apr 12, 2024 · e4eac9b · e4eac9b
1 parent a07ac41
commit e4eac9b
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/Cli.elm b/src/Cli.elm
@@ -167,7 +167,7 @@ generateFileFromOpenApiSpec config apiSpec =
                 warnings
                     |> List.Extra.gatherEqualsBy .message
                     |> List.map logWarning
-                    |> BackendTask.combine
+                    |> doAll
                     |> BackendTask.map (\_ -> decls)
             )
         |> BackendTask.andThen
@@ -258,8 +258,7 @@ logWarning ( head, tail ) =
     in
     (firstLine :: paths)
         |> List.map Pages.Script.log
-        |> BackendTask.combine
-        |> BackendTask.map (\_ -> ())
+        |> doAll