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 : Path

}

, userFlags : Value

, transition : Maybe ( Int, Transition )

, nextTransitionKey : Int

, inFlightFetchers : Dict String ( Int, FetcherState actionData )

, pageFormState : PageFormState

, pendingRedirect : Bool

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

}

type Msg userMsg pageData actionData sharedData errorPage

= LinkClicked UrlRequest

| UrlChanged Url

| UserMsg (Msg userMsg)

| SetField

{ formId : String

, name : String

, value : String

}

| UpdateCacheAndUrlNew

Bool

Url

(Maybe userMsg)

(Result

Error

( Url, ResponseSketch pageData actionData sharedData )

)

| FetcherComplete

Bool

String

Int

(Result Error ( Maybe userMsg, Maybe 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

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)