elm-pages 3.0.0-beta.13 → 3.0.0-beta.14

package/src/Pages/Internal/Platform/StaticResponses.elm

@@ -1,251 +1,93 @@
-module Pages.Internal.Platform.StaticResponses exposing (FinishKind(..), NextStep(..), StaticResponses, batchUpdate, empty, nextStep, renderApiRequest, renderSingleRoute)
+module Pages.Internal.Platform.StaticResponses exposing (NextStep(..), batchUpdate, empty, nextStep, renderApiRequest)
 
+import BackendTask exposing (BackendTask)
 import BuildError exposing (BuildError)
-import DataSource exposing (DataSource)
-import Dict exposing (Dict)
-import Dict.Extra
-import Pages.Internal.NotFoundReason exposing (NotFoundReason)
+import Exception exposing (Catchable(..), Throwable)
+import Json.Decode as Decode
+import List.Extra
 import Pages.StaticHttp.Request as HashRequest
 import Pages.StaticHttpRequest as StaticHttpRequest
 import RequestsAndPending exposing (RequestsAndPending)
-import Set exposing (Set)
+import TerminalText
 
 
-type StaticResponses
-    = ApiRequest StaticHttpResult
-    | StaticResponses StaticHttpResult
-    | CheckIfHandled (DataSource (Maybe NotFoundReason)) StaticHttpResult StaticHttpResult
-
-
-type StaticHttpResult
-    = NotFetched (DataSource ()) (Dict String (Result () String))
-
-
-empty : StaticResponses
-empty =
-    StaticResponses
-        (NotFetched (DataSource.succeed ()) Dict.empty)
-
-
-renderSingleRoute :
-    DataSource a
-    -> DataSource (Maybe NotFoundReason)
-    -> StaticResponses
-renderSingleRoute request cliData =
-    CheckIfHandled cliData
-        (NotFetched
-            (cliData
-                |> DataSource.map (\_ -> ())
-            )
-            Dict.empty
-        )
-        (NotFetched (DataSource.map (\_ -> ()) request) Dict.empty)
+empty : a -> BackendTask Throwable a
+empty a =
+    BackendTask.succeed a
 
 
 renderApiRequest :
-    DataSource response
-    -> StaticResponses
+    BackendTask Throwable response
+    -> BackendTask Throwable response
 renderApiRequest request =
-    ApiRequest
-        (NotFetched
-            (request |> DataSource.map (\_ -> ()))
-            Dict.empty
-        )
+    request
 
 
 batchUpdate :
-    List
-        { request : HashRequest.Request
-        , response : RequestsAndPending.Response
-        }
+    Decode.Value
     ->
         { model
-            | staticResponses : StaticResponses
-            , allRawResponses : RequestsAndPending
+            | allRawResponses : Decode.Value
         }
     ->
         { model
-            | staticResponses : StaticResponses
-            , allRawResponses : RequestsAndPending
+            | allRawResponses : Decode.Value
         }
 batchUpdate newEntries model =
-    { model
-        | allRawResponses = insertAll newEntries model.allRawResponses
-    }
-
-
-insertAll :
-    List
-        { request : HashRequest.Request
-        , response : RequestsAndPending.Response
-        }
-    -> RequestsAndPending
-    -> RequestsAndPending
-insertAll newEntries dict =
-    case newEntries of
-        [] ->
-            dict
-
-        info :: rest ->
-            insertAll
-                rest
-                (Dict.update (HashRequest.hash info.request) (\_ -> Just (Just info.response)) dict)
+    { model | allRawResponses = newEntries }
 
 
-type NextStep route
-    = Continue RequestsAndPending (List HashRequest.Request) (Maybe (List route))
-    | Finish (FinishKind route)
-
-
-type FinishKind route
-    = ApiResponse
-    | Errors (List BuildError)
+type NextStep route value
+    = Continue (List HashRequest.Request) (StaticHttpRequest.RawRequest Throwable value)
+    | Finish value
+    | FinishedWithErrors (List BuildError)
 
 
 nextStep :
     { model
-        | staticResponses : StaticResponses
+        | staticResponses : BackendTask Throwable a
         , errors : List BuildError
         , allRawResponses : RequestsAndPending
     }
-    -> Maybe (List route)
-    -> ( StaticResponses, NextStep route )
-nextStep ({ allRawResponses, errors } as model) maybeRoutes =
+    -> NextStep route a
+nextStep ({ allRawResponses, errors } as model) =
     let
-        staticRequestsStatus : StaticHttpRequest.Status ()
+        staticRequestsStatus : StaticHttpRequest.Status Throwable a
         staticRequestsStatus =
             allRawResponses
-                |> StaticHttpRequest.cacheRequestResolution request
-
-        request : DataSource ()
-        request =
-            case staticResponses of
-                NotFetched request_ _ ->
-                    request_
-
-        staticResponses : StaticHttpResult
-        staticResponses =
-            case model.staticResponses of
-                StaticResponses s ->
-                    s
-
-                ApiRequest staticHttpResult ->
-                    staticHttpResult
-
-                CheckIfHandled _ staticHttpResult _ ->
-                    staticHttpResult
-
-        pendingRequests : Bool
-        pendingRequests =
-            case staticResponses of
-                NotFetched _ rawResponses ->
-                    let
-                        hasPermanentError : Bool
-                        hasPermanentError =
-                            case staticRequestsStatus of
-                                StaticHttpRequest.HasPermanentError _ _ ->
-                                    True
-
-                                _ ->
-                                    False
-
-                        hasPermanentHttpError : Bool
-                        hasPermanentHttpError =
-                            not (List.isEmpty errors)
-
-                        ( allUrlsKnown, knownUrlsToFetch ) =
-                            case staticRequestsStatus of
-                                StaticHttpRequest.Incomplete newUrlsToFetch _ ->
-                                    ( False, newUrlsToFetch )
-
-                                _ ->
-                                    ( True, [] )
-
-                        fetchedAllKnownUrls : Bool
-                        fetchedAllKnownUrls =
-                            (rawResponses
-                                |> Dict.keys
-                                |> Set.fromList
-                                |> Set.union (allRawResponses |> Dict.keys |> Set.fromList)
-                            )
-                                |> Set.diff
-                                    (knownUrlsToFetch
-                                        |> List.map HashRequest.hash
-                                        |> Set.fromList
-                                    )
-                                |> Set.isEmpty
-                    in
-                    not (hasPermanentHttpError || hasPermanentError || (allUrlsKnown && fetchedAllKnownUrls))
+                |> StaticHttpRequest.cacheRequestResolution model.staticResponses
+
+        ( ( pendingRequests, completedValue ), urlsToPerform, progressedBackendTask ) =
+            case staticRequestsStatus of
+                StaticHttpRequest.Incomplete newUrlsToFetch nextReq ->
+                    ( ( True, Nothing ), newUrlsToFetch, nextReq )
+
+                StaticHttpRequest.Complete (Err error) ->
+                    ( ( False, Just (Err error) )
+                    , []
+                    , BackendTask.fail error
+                    )
+
+                StaticHttpRequest.Complete (Ok value) ->
+                    ( ( False, Just (Ok value) )
+                    , []
+                    , BackendTask.succeed value
+                    )
+
+                StaticHttpRequest.HasPermanentError _ ->
+                    ( ( False, Nothing )
+                    , []
+                    , BackendTask.fail (Exception.fromString "TODO this shouldn't happen")
+                    )
     in
     if pendingRequests then
         let
-            urlsToPerform : List HashRequest.Request
-            urlsToPerform =
-                -- TODO is this redundant with cacheRequestResolution?
-                StaticHttpRequest.resolveUrls request allRawResponses
-
-            newAllRawResponses : RequestsAndPending
-            newAllRawResponses =
-                Dict.union allRawResponses dictOfNewUrlsToPerform
-
-            dictOfNewUrlsToPerform : RequestsAndPending
-            dictOfNewUrlsToPerform =
-                urlsToPerform
-                    |> List.map (\url -> ( HashRequest.hash url, Nothing ))
-                    |> Dict.fromList
-
-            maskedToUnmasked : Dict String HashRequest.Request
-            maskedToUnmasked =
-                urlsToPerform
-                    |> List.map
-                        (\secureUrl ->
-                            ( HashRequest.hash secureUrl, secureUrl )
-                        )
-                    |> Dict.fromList
-
-            alreadyPerformed : Set String
-            alreadyPerformed =
-                allRawResponses
-                    |> Dict.keys
-                    |> Set.fromList
-
             newThing : List HashRequest.Request
             newThing =
-                maskedToUnmasked
-                    |> Dict.Extra.removeMany alreadyPerformed
-                    |> Dict.values
-
-            updatedStaticResponses : StaticResponses
-            updatedStaticResponses =
-                case staticRequestsStatus of
-                    StaticHttpRequest.HasPermanentError _ nextReq ->
-                        case model.staticResponses of
-                            ApiRequest (NotFetched _ dict) ->
-                                ApiRequest (NotFetched nextReq dict)
-
-                            StaticResponses (NotFetched _ dict) ->
-                                ApiRequest (NotFetched nextReq dict)
-
-                            CheckIfHandled _ _ _ ->
-                                -- TODO change this too, or maybe this is fine?
-                                model.staticResponses
-
-                    StaticHttpRequest.Incomplete _ nextReq ->
-                        case model.staticResponses of
-                            ApiRequest (NotFetched _ dict) ->
-                                ApiRequest (NotFetched nextReq dict)
-
-                            StaticResponses (NotFetched _ dict) ->
-                                ApiRequest (NotFetched nextReq dict)
-
-                            CheckIfHandled _ _ _ ->
-                                -- TODO change this too, or maybe this is fine?
-                                model.staticResponses
-
-                    StaticHttpRequest.Complete ->
-                        model.staticResponses
+                urlsToPerform
+                    |> List.Extra.uniqueBy HashRequest.hash
         in
-        ( updatedStaticResponses, Continue newAllRawResponses newThing maybeRoutes )
+        Continue newThing progressedBackendTask
 
     else
         let
@@ -258,7 +100,7 @@ nextStep ({ allRawResponses, errors } as model) maybeRoutes =
                             maybePermanentError : Maybe StaticHttpRequest.Error
                             maybePermanentError =
                                 case staticRequestsStatus of
-                                    StaticHttpRequest.HasPermanentError theError _ ->
+                                    StaticHttpRequest.HasPermanentError theError ->
                                         Just theError
 
                                     _ ->
@@ -275,80 +117,24 @@ nextStep ({ allRawResponses, errors } as model) maybeRoutes =
                 in
                 errors ++ failedRequests
         in
-        case model.staticResponses of
-            StaticResponses _ ->
-                ( model.staticResponses
-                , if List.length allErrors > 0 then
-                    allErrors
-                        |> Errors
-                        |> Finish
-
-                  else
-                    Finish ApiResponse
-                )
-
-            ApiRequest _ ->
-                ( model.staticResponses
-                , if List.length allErrors > 0 then
-                    allErrors
-                        |> Errors
-                        |> Finish
-
-                  else
-                    ApiResponse
-                        |> Finish
-                )
-
-            CheckIfHandled pageFoundDataSource (NotFetched _ _) andThenRequest ->
-                let
-                    pageFoundResult : Result StaticHttpRequest.Error (Maybe NotFoundReason)
-                    pageFoundResult =
-                        StaticHttpRequest.resolve
-                            pageFoundDataSource
-                            allRawResponses
-                in
-                case pageFoundResult of
-                    Ok Nothing ->
-                        nextStep { model | staticResponses = StaticResponses andThenRequest } maybeRoutes
-
-                    Ok (Just _) ->
-                        ( empty
-                        , Finish ApiResponse
-                          -- TODO change data type here so you can avoid running `resolve` again from `Cli.elm` since it can be expensive
-                        )
-
-                    Err error_ ->
-                        let
-                            failedRequests : List BuildError
-                            failedRequests =
-                                let
-                                    maybePermanentError : Maybe StaticHttpRequest.Error
-                                    maybePermanentError =
-                                        case staticRequestsStatus of
-                                            StaticHttpRequest.HasPermanentError theError _ ->
-                                                Just theError
-
-                                            _ ->
-                                                Nothing
-
-                                    decoderErrors : List BuildError
-                                    decoderErrors =
-                                        maybePermanentError
-                                            |> Maybe.map (StaticHttpRequest.toBuildError "TODO PATH")
-                                            |> Maybe.map List.singleton
-                                            |> Maybe.withDefault []
-                                in
-                                decoderErrors
-                        in
-                        ( model.staticResponses
-                        , Finish
-                            (Errors <|
-                                (StaticHttpRequest.toBuildError
-                                    -- TODO give more fine-grained error reference
-                                    "get static routes"
-                                    error_
-                                    :: failedRequests
-                                    ++ errors
-                                )
-                            )
-                        )
+        if List.length allErrors > 0 then
+            FinishedWithErrors allErrors
+
+        else
+            case completedValue of
+                Just (Ok completed) ->
+                    Finish completed
+
+                Just (Err (Catchable () buildError)) ->
+                    FinishedWithErrors
+                        [ { title = buildError.title |> String.toUpper
+                          , path = "" -- TODO include path here
+                          , message = buildError.body |> TerminalText.fromAnsiString
+                          , fatal = True
+                          }
+                        ]
+
+                Nothing ->
+                    FinishedWithErrors
+                        [ BuildError.internal "TODO error message"
+                        ]

package/src/Pages/Internal/Platform/ToJsPayload.elm

@@ -89,7 +89,7 @@ headCodec canonicalSiteUrl currentPagePath =
 type ToJsSuccessPayloadNewCombined
     = PageProgress ToJsSuccessPayloadNew
     | SendApiResponse { body : Json.Encode.Value, staticHttpCache : Dict String String, statusCode : Int }
-    | DoHttp Pages.StaticHttp.Request.Request Bool
+    | DoHttp String Pages.StaticHttp.Request.Request
     | Port String
     | Errors (List BuildError)
     | ApiResponse
@@ -109,8 +109,8 @@ successCodecNew2 canonicalSiteUrl currentPagePath =
                 PageProgress payload ->
                     success payload
 
-                DoHttp requestUrl _ ->
-                    vDoHttp requestUrl requestUrl.useCache
+                DoHttp hash requestUrl ->
+                    vDoHttp hash requestUrl
 
                 SendApiResponse record ->
                     vSendApiResponse record
@@ -123,8 +123,8 @@ successCodecNew2 canonicalSiteUrl currentPagePath =
         |> Codec.variant1 "PageProgress" PageProgress (successCodecNew canonicalSiteUrl currentPagePath)
         |> Codec.variant2 "DoHttp"
             DoHttp
+            Codec.string
             Pages.StaticHttp.Request.codec
-            Codec.bool
         |> Codec.variant1 "ApiResponse"
             SendApiResponse
             (Codec.object (\body staticHttpCache statusCode -> { body = body, staticHttpCache = staticHttpCache, statusCode = statusCode })

package/src/Pages/Internal/Platform.elm

@@ -45,11 +45,6 @@ import Time
 import Url exposing (Url)
 
 
-type Transition
-    = Loading Int Path
-    | Submitting FormData
-
-
 {-| -}
 type alias Program userModel userMsg pageData actionData sharedData errorPage =
     Platform.Program Flags (Model userModel pageData actionData sharedData) (Msg userMsg pageData actionData sharedData errorPage)
@@ -430,7 +425,7 @@ update config appMsg model =
                             -- parallel to the browser behavior
                             |> startNewGetLoad url (UpdateCacheAndUrlNew True url Nothing)
 
-        FetcherComplete forPageReload fetcherKey transitionId___ userMsgResult ->
+        FetcherComplete _ fetcherKey _ userMsgResult ->
             case userMsgResult of
                 Ok ( userMsg, maybeFetcherDoneActionData ) ->
                     ( { model
@@ -685,10 +680,10 @@ update config appMsg model =
                 Err _ ->
                     {-
                        When there is an error loading the content.dat, we are either
-                       1) in the dev server, and should show the relevant DataSource error for the page
+                       1) in the dev server, and should show the relevant BackendTask error for the page
                           we're navigating to. This could be done more cleanly, but it's simplest to just
                           do a fresh page load and use the code path for presenting an error for a fresh page.
-                       2) In a production app. That means we had a successful build, so there were no DataSource failures,
+                       2) In a production app. That means we had a successful build, so there were no BackendTask failures,
                           so the app must be stale (unless it's in some unexpected state from a bug). In the future,
                           it probably makes sense to include some sort of hash of the app version we are fetching, match
                           it with the current version that's running, and perform this logic when we see there is a mismatch.
@@ -772,7 +767,7 @@ update config appMsg model =
 toFetcherState : Dict String ( Int, Pages.Transition.FetcherState actionData ) -> Dict String (Pages.Transition.FetcherState actionData)
 toFetcherState inFlightFetchers =
     inFlightFetchers
-        |> Dict.map (\_ ( index, fetcherState ) -> fetcherState)
+        |> Dict.map (\_ ( _, fetcherState ) -> fetcherState)
 
 
 performUserMsg :
@@ -834,7 +829,7 @@ perform config model effect =
                 |> Maybe.withDefault Cmd.none
 
         FetchPageData transitionKey maybeRequestInfo url toMsg ->
-            fetchRouteData True transitionKey toMsg config url maybeRequestInfo
+            fetchRouteData transitionKey toMsg config url maybeRequestInfo
 
         Submit fields ->
             if fields.method == Get then
@@ -849,7 +844,7 @@ perform config model effect =
                         -- TODO add optional path parameter to Submit variant to allow submitting to other routes
                         model.url
                 in
-                fetchRouteData False -1 (UpdateCacheAndUrlNew False model.url Nothing) config urlToSubmitTo (Just fields)
+                fetchRouteData -1 (UpdateCacheAndUrlNew False model.url Nothing) config urlToSubmitTo (Just fields)
 
         SubmitFetcher fetcherKey transitionId formData ->
             startFetcher2 config False fetcherKey transitionId formData model
@@ -869,7 +864,7 @@ perform config model effect =
                         |> config.perform
                             { fetchRouteData =
                                 \fetchInfo ->
-                                    fetchRouteData False
+                                    fetchRouteData
                                         -1
                                         (prepare fetchInfo.toMsg)
                                         config
@@ -879,7 +874,7 @@ perform config model effect =
                             ---- TODO map the Msg with the wrapper type (like in the PR branch)
                             , submit =
                                 \fetchInfo ->
-                                    fetchRouteData False -1 (prepare fetchInfo.toMsg) config (fetchInfo.values.action |> Url.fromString |> Maybe.withDefault model.url) (Just fetchInfo.values)
+                                    fetchRouteData -1 (prepare fetchInfo.toMsg) config (fetchInfo.values.action |> Url.fromString |> Maybe.withDefault model.url) (Just fetchInfo.values)
                             , runFetcher =
                                 \(Pages.Fetcher.Fetcher options) ->
                                     -- TODO need to get the fetcherId here
@@ -933,7 +928,7 @@ startFetcher fetcherKey transitionId options model =
                 Http.expectBytesResponse (FetcherComplete False fetcherKey model.nextTransitionKey)
                     (\bytes ->
                         case bytes of
-                            Http.GoodStatus_ metadata bytesBody ->
+                            Http.GoodStatus_ _ bytesBody ->
                                 ( options.decoder (Ok bytesBody)
                                     |> Just
                                 , Nothing
@@ -949,7 +944,7 @@ startFetcher fetcherKey transitionId options model =
                             Http.NetworkError_ ->
                                 Err <| Http.NetworkError
 
-                            Http.BadStatus_ metadata body ->
+                            Http.BadStatus_ metadata _ ->
                                 Err <| Http.BadStatus metadata.statusCode
                     )
             , tracker = Nothing
@@ -980,7 +975,7 @@ startFetcher2 config fromPageReload fetcherKey transitionId formData model =
     Cmd.batch
         [ cancelStaleFetchers model
         , case Dict.get fetcherKey model.inFlightFetchers of
-            Just ( inFlightId, inFlightFetcher ) ->
+            Just ( inFlightId, _ ) ->
                 Http.cancel (String.fromInt inFlightId)
 
             Nothing ->
@@ -991,7 +986,7 @@ startFetcher2 config fromPageReload fetcherKey transitionId formData model =
                 Http.expectBytesResponse (FetcherComplete fromPageReload fetcherKey model.nextTransitionKey)
                     (\bytes ->
                         case bytes of
-                            Http.GoodStatus_ metadata bytesBody ->
+                            Http.GoodStatus_ _ bytesBody ->
                                 let
                                     decodedAction : Maybe actionData
                                     decodedAction =
@@ -999,10 +994,10 @@ startFetcher2 config fromPageReload fetcherKey transitionId formData model =
                                             Just (ResponseSketch.RenderPage _ maybeAction) ->
                                                 maybeAction
 
-                                            Just (ResponseSketch.HotUpdate pageData shared maybeAction) ->
+                                            Just (ResponseSketch.HotUpdate _ _ maybeAction) ->
                                                 maybeAction
 
-                                            Just (ResponseSketch.NotFound notFound) ->
+                                            Just (ResponseSketch.NotFound _) ->
                                                 Nothing
 
                                             _ ->
@@ -1020,7 +1015,7 @@ startFetcher2 config fromPageReload fetcherKey transitionId formData model =
                             Http.NetworkError_ ->
                                 Err <| Http.NetworkError
 
-                            Http.BadStatus_ metadata body ->
+                            Http.BadStatus_ metadata _ ->
                                 Err <| Http.BadStatus metadata.statusCode
                     )
             , tracker = Just (String.fromInt transitionId)
@@ -1042,7 +1037,7 @@ cancelStaleFetchers model =
     model.inFlightFetchers
         |> Dict.toList
         |> List.filterMap
-            (\( fetcherKey, ( id, fetcher ) ) ->
+            (\( _, ( id, fetcher ) ) ->
                 case fetcher.status of
                     Pages.Transition.FetcherReloading _ ->
                         Http.cancel (String.fromInt id)
@@ -1163,14 +1158,13 @@ urlPathToPath urls =
 
 
 fetchRouteData :
-    Bool
-    -> Int
+    Int
     -> (Result Http.Error ( Url, ResponseSketch pageData actionData sharedData ) -> Msg userMsg pageData actionData sharedData errorPage)
     -> ProgramConfig userMsg userModel route pageData actionData sharedData effect (Msg userMsg pageData actionData sharedData errorPage) errorPage
     -> Url
     -> Maybe FormData
     -> Cmd (Msg userMsg pageData actionData sharedData errorPage)
-fetchRouteData forPageDataReload transitionKey toMsg config url details =
+fetchRouteData transitionKey toMsg config url details =
     {-
        TODO:
        - [X] `toMsg` needs a parameter for the callback Msg so it can pass it on if there is a Redirect response
@@ -1257,7 +1251,7 @@ fetchRouteData forPageDataReload transitionKey toMsg config url details =
                         Http.NetworkError_ ->
                             Err Http.NetworkError
 
-                        Http.BadStatus_ metadata body ->
+                        Http.BadStatus_ _ body ->
                             body
                                 |> Bytes.Decode.decode config.decodeResponse
                                 |> Result.fromMaybe "Decoding error"
@@ -1309,7 +1303,7 @@ startNewGetLoad urlToGet toMsg ( model, effect ) =
         cancelIfStale : Effect userMsg pageData actionData sharedData userEffect errorPage
         cancelIfStale =
             case model.transition of
-                Just ( transitionKey, Pages.Transition.Loading path loadingKind ) ->
+                Just ( transitionKey, Pages.Transition.Loading _ _ ) ->
                     CancelRequest transitionKey
 
                 _ ->
@@ -1320,13 +1314,13 @@ startNewGetLoad urlToGet toMsg ( model, effect ) =
         , transition =
             ( model.nextTransitionKey
             , case model.transition of
-                Just ( transitionKey, Pages.Transition.LoadAfterSubmit submitData _ _ ) ->
+                Just ( _, Pages.Transition.LoadAfterSubmit submitData _ _ ) ->
                     Pages.Transition.LoadAfterSubmit
                         submitData
                         (urlToGet.path |> Path.fromString)
                         Pages.Transition.Load
 
-                Just ( transitionKey, Pages.Transition.Submitting submitData ) ->
+                Just ( _, Pages.Transition.Submitting submitData ) ->
                     Pages.Transition.LoadAfterSubmit
                         submitData
                         (urlToGet.path |> Path.fromString)
@@ -1399,7 +1393,7 @@ loadDataAndUpdateUrl ( newPageData, newSharedData, newActionData ) maybeUserMsg
                     }
 
                 -- TODO use userEffect here?
-                ( userModel, userEffect ) =
+                ( userModel, _ ) =
                     -- TODO if urlWithoutRedirectResolution is different from the url with redirect resolution, then
                     -- instead of calling update, call pushUrl (I think?)
                     -- TODO include user Cmd
@@ -1474,10 +1468,10 @@ loadDataAndUpdateUrl ( newPageData, newSharedData, newActionData ) maybeUserMsg
         Err _ ->
             {-
                When there is an error loading the content.dat, we are either
-               1) in the dev server, and should show the relevant DataSource error for the page
+               1) in the dev server, and should show the relevant BackendTask error for the page
                   we're navigating to. This could be done more cleanly, but it's simplest to just
                   do a fresh page load and use the code path for presenting an error for a fresh page.
-               2) In a production app. That means we had a successful build, so there were no DataSource failures,
+               2) In a production app. That means we had a successful build, so there were no BackendTask failures,
                   so the app must be stale (unless it's in some unexpected state from a bug). In the future,
                   it probably makes sense to include some sort of hash of the app version we are fetching, match
                   it with the current version that's running, and perform this logic when we see there is a mismatch.

package/src/Pages/Internal/Script.elm

@@ -1,7 +1,8 @@
 module Pages.Internal.Script exposing (Script(..))
 
+import BackendTask exposing (BackendTask)
 import Cli.Program as Program
-import DataSource exposing (DataSource)
+import Exception exposing (Throwable)
 import Html exposing (Html)
 
 
@@ -12,5 +13,5 @@ type Script
           -> Html Never
           -> String
          )
-         -> Program.Config (DataSource ())
+         -> Program.Config (BackendTask Throwable ())
         )