Handle redirects to absolute URLs on fetch response.

dillonkearns · Apr 15, 2024 · 2e7c5d1 · 2e7c5d1
1 parent 35dc5ab
commit 2e7c5d1
Showing 1 changed file with 11 additions and 2 deletions.
diff --git a/src/Pages/Internal/Platform.elm b/src/Pages/Internal/Platform.elm
@@ -502,8 +502,17 @@ update config appMsg model =
         ProcessFetchResponse transitionId response toMsg ->
             case response of
                 Ok ( _, ResponseSketch.Redirect redirectTo ) ->
-                    ( model, NoEffect )
-                        |> startNewGetLoad (currentUrlWithPath redirectTo model) toMsg
+                    let
+                        isAbsoluteUrl : Bool
+                        isAbsoluteUrl =
+                            Url.fromString redirectTo /= Nothing
+                    in
+                    if isAbsoluteUrl then
+                        ( model, BrowserLoadUrl redirectTo )
+
+                    else
+                        ( model, NoEffect )
+                            |> startNewGetLoad (currentUrlWithPath redirectTo model) toMsg
 
                 _ ->
                     update config (toMsg response) (clearLoadingFetchersAfterDataLoad transitionId model)