Fix debug ignoring log tasks

andrewMacmurray · Mar 15, 2024 · 2cb130f · 2cb130f
1 parent 553a371
commit 2cb130f
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/examples/many-requests/src/Main.elm b/examples/many-requests/src/Main.elm
@@ -113,6 +113,7 @@ longRequest ms =
         , expect = Http.expectJson (Decode.field "message" Decode.string)
         , timeout = Nothing
         }
+        |> Task.debug Debug.toString Debug.toString
 
 
 sometimesFails : ConcurrentTask Http.Error String
@@ -123,6 +124,7 @@ sometimesFails =
         , expect = Http.expectJson (Decode.field "message" Decode.string)
         , timeout = Nothing
         }
+        |> Task.debug Debug.toString Debug.toString
 
 
 httpError : ConcurrentTask Http.Error String
@@ -133,6 +135,7 @@ httpError =
         , expect = Http.expectJson (Decode.field "message" Decode.string)
         , timeout = Nothing
         }
+        |> Task.debug Debug.toString Debug.toString
 
 
 {-| Simple retry mechanism with backoff

diff --git a/src/ConcurrentTask.elm b/src/ConcurrentTask.elm
@@ -688,13 +688,13 @@ debug toOk toErr task =
             (\a ->
                 toOk a
                     |> debugLog "Success"
-                    |> (\_ -> succeed a)
+                    |> return a
             )
         |> onError
             (\x ->
                 toErr x
                     |> debugLog "Failure"
-                    |> (\_ -> fail x)
+                    |> andThenDo (fail x)
             )