From 7ae76293d8f488451fa49998edf074351c2b5fe7 Mon Sep 17 00:00:00 2001 From: Dillon Kearns Date: Mon, 19 Oct 2020 17:41:27 -0700 Subject: [PATCH] Fix compiler error in tests. --- tests/BetaStaticHttpRequestsTests.elm | 6 +++--- tests/StaticHttpRequestsTests.elm | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/BetaStaticHttpRequestsTests.elm b/tests/BetaStaticHttpRequestsTests.elm index c77bdaa7..c876bc93 100644 --- a/tests/BetaStaticHttpRequestsTests.elm +++ b/tests/BetaStaticHttpRequestsTests.elm @@ -277,7 +277,7 @@ simulateEffects effect = Effect.SendSinglePage info -> SimulatedEffect.Cmd.batch [ info - |> Codec.encoder ToJsPayload.successCodecNew2 + |> Codec.encoder (ToJsPayload.successCodecNew2 "" "") |> SimulatedEffect.Ports.send "toJsPort" , SimulatedEffect.Task.succeed () |> SimulatedEffect.Task.perform (\_ -> Main.Continue) @@ -380,7 +380,7 @@ expectSuccess expectedRequests previous = previous |> ProgramTest.expectOutgoingPortValues "toJsPort" - (Codec.decoder ToJsPayload.successCodecNew2) + (Codec.decoder (ToJsPayload.successCodecNew2 "" "")) (\portPayloads -> portPayloads |> List.filterMap @@ -416,7 +416,7 @@ expectError expectedErrors previous = previous |> ProgramTest.expectOutgoingPortValues "toJsPort" - (Codec.decoder ToJsPayload.successCodecNew2) + (Codec.decoder (ToJsPayload.successCodecNew2 "" "")) (\value -> case value of [ ToJsPayload.PageProgress portPayload ] -> diff --git a/tests/StaticHttpRequestsTests.elm b/tests/StaticHttpRequestsTests.elm index 7856e102..cfecc129 100644 --- a/tests/StaticHttpRequestsTests.elm +++ b/tests/StaticHttpRequestsTests.elm @@ -956,7 +956,7 @@ simulateEffects effect = Effect.SendSinglePage info -> SimulatedEffect.Cmd.batch [ info - |> Codec.encoder ToJsPayload.successCodecNew2 + |> Codec.encoder (ToJsPayload.successCodecNew2 "" "") |> SimulatedEffect.Ports.send "toJsPort" , SimulatedEffect.Task.succeed () |> SimulatedEffect.Task.perform (\_ -> Main.Continue)