Pages.Internal.Platform

type alias Flags =

Value

type alias Model userModel pageData actionData sharedData =

{ key : Maybe Key

, url : Url

, currentPath : String

, ariaNavigationAnnouncement : String

, pageData :

Result

String

{ userModel : userModel

, pageData : pageData

, sharedData : sharedData

, actionData : Maybe actionData

}

, notFound :

Maybe

{ reason : NotFoundReason

, path : UrlPath

}

, userFlags : Value

, transition : Maybe ( Int, Navigation )

, nextTransitionKey : Int

, inFlightFetchers :

Dict String ( Int, ConcurrentSubmission actionData )

, pageFormState : Model

, pendingRedirect : Bool

, pendingData : Maybe ( pageData, sharedData, Maybe actionData )

}

type Msg userMsg pageData actionData sharedData errorPage

= LinkClicked UrlRequest

| UrlChanged Url

| UserMsg (PagesMsg userMsg)

| FormMsg

(Msg (Msg userMsg pageData actionData sharedData errorPage))

| UpdateCacheAndUrlNew

Bool

Url

(Maybe userMsg)

(Result

Error

( Url, ResponseSketch pageData actionData sharedData )

)

| FetcherComplete

Bool

String

Int

(Result

Error

( Maybe userMsg, ActionDataOrRedirect actionData )

)

| FetcherStarted String Int FormData Posix

| PageScrollComplete

| HotReloadCompleteNew Bytes

| ProcessFetchResponse

Int

(Result

Error

( Url, ResponseSketch pageData actionData sharedData )

)

( Result

Error

( Url, ResponseSketch pageData actionData sharedData )

-> Msg userMsg pageData actionData sharedData errorPage

)

type alias Program userModel userMsg pageData actionData sharedData errorPage =

Program

Flags

(Model userModel pageData actionData sharedData)

(Msg userMsg pageData actionData sharedData errorPage)

application :

ProgramConfig

userMsg

userModel

route

pageData

actionData

sharedData

effect

(Msg userMsg pageData actionData sharedData errorPage)

errorPage

-> Program

Flags

(Model userModel pageData actionData sharedData)

(Msg userMsg pageData actionData sharedData errorPage)

init :

ProgramConfig

userMsg

userModel

route

pageData

actionData

sharedData

userEffect

(Msg userMsg pageData actionData sharedData errorPage)

errorPage

-> Flags

-> Url

-> Maybe Key

-> ( Model userModel pageData actionData sharedData

, Effect

userMsg

pageData

actionData

sharedData

userEffect

errorPage

)

update :

ProgramConfig

userMsg

userModel

route

pageData

actionData

sharedData

userEffect

(Msg userMsg pageData actionData sharedData errorPage)

errorPage

-> Msg userMsg pageData actionData sharedData errorPage

-> Model userModel pageData actionData sharedData

-> ( Model userModel pageData actionData sharedData

, Effect

userMsg

pageData

actionData

sharedData

userEffect

errorPage

)

type Effect userMsg pageData actionData sharedData userEffect errorPage

= ScrollToTop

| NoEffect

| BrowserLoadUrl String

| BrowserPushUrl String

| BrowserReplaceUrl String

| FetchPageData

Int

(Maybe FormData)

Url

( Result

Error

( Url, ResponseSketch pageData actionData sharedData )

-> Msg userMsg pageData actionData sharedData errorPage

)

| Submit FormData

| SubmitFetcher String Int FormData

| Batch

(List

(Effect

userMsg

pageData

actionData

sharedData

userEffect

errorPage

)

)

| UserCmd userEffect

| CancelRequest Int

| RunCmd

(Cmd (Msg userMsg pageData actionData sharedData errorPage))

type alias RequestInfo =

{ contentType : String

, body : String

}

view :

ProgramConfig

userMsg

userModel

route

pageData

actionData

sharedData

effect

(Msg userMsg pageData actionData sharedData errorPage)

errorPage

-> Model userModel pageData actionData sharedData

-> Document (Msg userMsg pageData actionData sharedData errorPage)