type alias Flags =

Value

type alias Model route =

{ staticResponses : BackendTask FatalError Effect

, errors : List BuildError

, maybeRequestJson : RenderRequest route

, isDevServer : Bool

}

type Msg

= GotDataBatch

(List

{ key : String

, json : Value

, bytes : Maybe Bytes

}

)

| GotBuildError BuildError

type alias ProgramConfig userMsg userModel route pageData actionData sharedData effect mappedMsg errorPage =

ProgramConfig

userMsg

userModel

route

pageData

actionData

sharedData

effect

mappedMsg

errorPage

type alias Program route =

Program Flags (Model route) Msg

cliApplication :

ProgramConfig

userMsg

userModel

(Maybe route)

pageData

actionData

sharedData

effect

mappedMsg

errorPage

-> Program (Maybe route)

init :

SiteConfig

-> RenderRequest route

-> ProgramConfig

userMsg

userModel

route

pageData

actionData

sharedData

effect

mappedMsg

errorPage

-> Value

-> ( Model route, Effect )

requestDecoder : Decoder Request

update : Msg -> Model route -> ( Model route, Effect )

currentCompatibilityKey : Int