mirror of
https://github.com/dillonkearns/elm-pages.git
synced 2024-10-26 10:27:36 +03:00
Move Pages.Msg -> PagesMsg and Pages.Msg.Msg -> PagesMsg.PagesMsg.
This commit is contained in:
parent
c418b536c0
commit
c53c09aa31
@ -17,21 +17,18 @@ import Gen.Bytes.Encode
|
||||
import Gen.Dict
|
||||
import Gen.Head
|
||||
import Gen.Html
|
||||
import Gen.HtmlPrinter
|
||||
import Gen.Json.Decode
|
||||
import Gen.Json.Encode
|
||||
import Gen.List
|
||||
import Gen.Maybe
|
||||
import Gen.Pages.Fetcher
|
||||
import Gen.Pages.Flags
|
||||
import Gen.Pages.FormState
|
||||
import Gen.Pages.Internal.NotFoundReason
|
||||
import Gen.Pages.Internal.Platform
|
||||
import Gen.Pages.Internal.Platform.Cli
|
||||
import Gen.Pages.Internal.RoutePattern
|
||||
import Gen.Pages.Msg
|
||||
import Gen.Pages.ProgramConfig
|
||||
import Gen.Pages.Transition
|
||||
import Gen.PagesMsg
|
||||
import Gen.Path
|
||||
import Gen.Platform.Sub
|
||||
import Gen.QueryParams
|
||||
@ -291,14 +288,14 @@ otherFile routes phaseString =
|
||||
, model |> Elm.get "global"
|
||||
, Elm.fn ( "myMsg", Nothing )
|
||||
(\myMsg ->
|
||||
Gen.Pages.Msg.fromMsg
|
||||
Gen.PagesMsg.fromMsg
|
||||
(Elm.apply (Elm.val "MsgGlobal") [ myMsg ])
|
||||
)
|
||||
, Elm.apply
|
||||
(Elm.value { importFrom = [ "View" ], name = "map", annotation = Nothing })
|
||||
[ Elm.functionReduced "myMsg"
|
||||
(\myMsg ->
|
||||
Gen.Pages.Msg.fromMsg
|
||||
Gen.PagesMsg.fromMsg
|
||||
(Elm.apply (Elm.val "MsgErrorPage____") [ myMsg ])
|
||||
)
|
||||
, Elm.apply
|
||||
@ -357,14 +354,14 @@ otherFile routes phaseString =
|
||||
, model |> Elm.get "global"
|
||||
, Elm.fn ( "myMsg", Nothing )
|
||||
(\myMsg ->
|
||||
Gen.Pages.Msg.fromMsg
|
||||
Gen.PagesMsg.fromMsg
|
||||
(Elm.apply (Elm.val "MsgGlobal") [ myMsg ])
|
||||
)
|
||||
, Elm.apply
|
||||
(Elm.value { importFrom = [ "View" ], name = "map", annotation = Nothing })
|
||||
[ Elm.functionReduced
|
||||
"innerPageMsg"
|
||||
(Gen.Pages.Msg.call_.map (route |> routeVariantExpression Msg))
|
||||
(Gen.PagesMsg.call_.map (route |> routeVariantExpression Msg))
|
||||
, Elm.apply (route |> routeTemplateFunction "view")
|
||||
[ maybePageUrl
|
||||
, model |> Elm.get "global"
|
||||
@ -479,7 +476,7 @@ otherFile routes phaseString =
|
||||
[ ( "title", Type.string )
|
||||
, ( "body"
|
||||
, Gen.Html.annotation_.html
|
||||
(Gen.Pages.Msg.annotation_.msg (Type.named [] "Msg"))
|
||||
(Gen.PagesMsg.annotation_.pagesMsg (Type.named [] "Msg"))
|
||||
|> Type.list
|
||||
)
|
||||
]
|
||||
|
2
elm.json
2
elm.json
@ -25,7 +25,7 @@
|
||||
"Server.Session",
|
||||
"Server.SetCookie",
|
||||
"Server.Response",
|
||||
"Pages.Msg",
|
||||
"PagesMsg",
|
||||
"Pages.Manifest",
|
||||
"Pages.Manifest.Category",
|
||||
"Pages.Flags",
|
||||
|
@ -6,7 +6,7 @@ import Head
|
||||
import Head.Seo as Seo
|
||||
import Html.Styled as Html exposing (text)
|
||||
import Html.Styled.Attributes as Attr
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path
|
||||
@ -74,7 +74,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "Index page"
|
||||
, body =
|
||||
|
@ -8,7 +8,7 @@ import Head
|
||||
import Head.Seo as Seo
|
||||
import Html.Styled as Html exposing (..)
|
||||
import Html.Styled.Attributes as Attr
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path
|
||||
@ -75,7 +75,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = ""
|
||||
, body =
|
||||
|
@ -22,8 +22,8 @@ import Html exposing (Html)
|
||||
import Html.Attributes
|
||||
import Json.Decode as Decode exposing (Decoder)
|
||||
import Json.Encode as Encode
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Path
|
||||
import Platform.Sub
|
||||
import Post exposing (Post)
|
||||
@ -145,7 +145,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> RouteBuilder.StaticPayload Data ActionData RouteParams
|
||||
-> View.View (Pages.Msg.Msg Msg)
|
||||
-> View.View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model app =
|
||||
{ title =
|
||||
if app.routeParams.slug == "new" then
|
||||
@ -335,7 +335,7 @@ buttonWithTransition attributes initialText transitioningText formState =
|
||||
errorsView :
|
||||
Form.Errors String
|
||||
-> Form.Validation.Field String parsed kind
|
||||
-> Html.Html (Pages.Msg.Msg Msg)
|
||||
-> Html.Html (PagesMsg Msg)
|
||||
errorsView errors field =
|
||||
if List.isEmpty (Form.errorsForField field errors) then
|
||||
Html.div [] []
|
||||
|
@ -8,9 +8,9 @@ import Head.Seo as Seo
|
||||
import Html
|
||||
import Json.Decode as Decode
|
||||
import Json.Encode as Encode
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Post exposing (Post)
|
||||
import Route
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
@ -83,7 +83,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel app =
|
||||
{ title = "Index page"
|
||||
, body =
|
||||
|
@ -18,8 +18,8 @@ import Json.Encode as Encode
|
||||
import Markdown.Block exposing (Block)
|
||||
import Markdown.Parser
|
||||
import Markdown.Renderer
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Path
|
||||
import Platform.Sub
|
||||
import Post
|
||||
@ -143,7 +143,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> RouteBuilder.StaticPayload Data ActionData RouteParams
|
||||
-> View.View (Pages.Msg.Msg Msg)
|
||||
-> View.View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model app =
|
||||
{ title = "Posts.Slug_"
|
||||
, body =
|
||||
|
@ -664,7 +664,7 @@
|
||||
"input",
|
||||
"msg"
|
||||
],
|
||||
"type": "Form.Form error { combine : Form.Validation.Combined error parsed, view : Form.Context error input -> List.List (Html.Html (Pages.Msg.Msg msg)) } input"
|
||||
"type": "Form.Form error { combine : Form.Validation.Combined error parsed, view : Form.Context error input -> List.List (Html.Html (PagesMsg msg)) } input"
|
||||
},
|
||||
{
|
||||
"name": "StyledHtmlForm",
|
||||
@ -675,7 +675,7 @@
|
||||
"data",
|
||||
"msg"
|
||||
],
|
||||
"type": "Form.Form error { combine : Form.Validation.Combined error parsed, view : Form.Context error data -> List.List (Html.Styled.Html (Pages.Msg.Msg msg)) } data"
|
||||
"type": "Form.Form error { combine : Form.Validation.Combined error parsed, view : Form.Context error data -> List.List (Html.Styled.Html (PagesMsg msg)) } data"
|
||||
}
|
||||
],
|
||||
"values": [
|
||||
@ -737,12 +737,12 @@
|
||||
{
|
||||
"name": "renderHtml",
|
||||
"comment": " ",
|
||||
"type": "List.List (Html.Attribute (Pages.Msg.Msg msg)) -> Maybe.Maybe { fields : List.List ( String.String, String.String ), errors : Dict.Dict String.String (List.List error) } -> Form.AppContext app actionData -> data -> Form.FinalForm error (Pages.Internal.Form.Validation error parsed named constraints) data (Form.Context error data -> List.List (Html.Html (Pages.Msg.Msg msg))) msg -> Html.Html (Pages.Msg.Msg msg)"
|
||||
"type": "List.List (Html.Attribute (PagesMsg msg)) -> Maybe.Maybe { fields : List.List ( String.String, String.String ), errors : Dict.Dict String.String (List.List error) } -> Form.AppContext app actionData -> data -> Form.FinalForm error (Pages.Internal.Form.Validation error parsed named constraints) data (Form.Context error data -> List.List (Html.Html (PagesMsg msg))) msg -> Html.Html (PagesMsg msg)"
|
||||
},
|
||||
{
|
||||
"name": "renderStyledHtml",
|
||||
"comment": " ",
|
||||
"type": "List.List (Html.Styled.Attribute (Pages.Msg.Msg msg)) -> Maybe.Maybe { fields : List.List ( String.String, String.String ), errors : Dict.Dict String.String (List.List error) } -> Form.AppContext app actionData -> data -> Form.FinalForm error (Pages.Internal.Form.Validation error parsed named constraints) data (Form.Context error data -> List.List (Html.Styled.Html (Pages.Msg.Msg msg))) msg -> Html.Styled.Html (Pages.Msg.Msg msg)"
|
||||
"type": "List.List (Html.Styled.Attribute (PagesMsg msg)) -> Maybe.Maybe { fields : List.List ( String.String, String.String ), errors : Dict.Dict String.String (List.List error) } -> Form.AppContext app actionData -> data -> Form.FinalForm error (Pages.Internal.Form.Validation error parsed named constraints) data (Form.Context error data -> List.List (Html.Styled.Html (PagesMsg msg))) msg -> Html.Styled.Html (PagesMsg msg)"
|
||||
},
|
||||
{
|
||||
"name": "runOneOfServerSide",
|
||||
@ -1716,7 +1716,7 @@
|
||||
{
|
||||
"name": "listeners",
|
||||
"comment": " ",
|
||||
"type": "String.String -> List.List (Html.Attribute (Pages.Msg.Msg userMsg))"
|
||||
"type": "String.String -> List.List (Html.Attribute (PagesMsg userMsg))"
|
||||
},
|
||||
{
|
||||
"name": "setField",
|
||||
@ -1962,7 +1962,7 @@
|
||||
[
|
||||
"UserMsg",
|
||||
[
|
||||
"Pages.Msg.Msg userMsg"
|
||||
"PagesMsg userMsg"
|
||||
]
|
||||
],
|
||||
[
|
||||
@ -2791,22 +2791,22 @@
|
||||
{
|
||||
"name": "fetcherOnSubmit",
|
||||
"comment": " ",
|
||||
"type": "Maybe.Maybe ({ fields : List.List ( String.String, String.String ) } -> userMsg) -> String.String -> (List.List ( String.String, String.String ) -> Basics.Bool) -> Html.Attribute (Pages.Msg.Msg userMsg)"
|
||||
"type": "Maybe.Maybe ({ fields : List.List ( String.String, String.String ) } -> userMsg) -> String.String -> (List.List ( String.String, String.String ) -> Basics.Bool) -> Html.Attribute (PagesMsg userMsg)"
|
||||
},
|
||||
{
|
||||
"name": "map",
|
||||
"comment": " ",
|
||||
"type": "(a -> b) -> Pages.Msg.Msg a -> Pages.Msg.Msg b"
|
||||
"type": "(a -> b) -> PagesMsg a -> PagesMsg b"
|
||||
},
|
||||
{
|
||||
"name": "onSubmit",
|
||||
"comment": " ",
|
||||
"type": "Html.Attribute (Pages.Msg.Msg userMsg)"
|
||||
"type": "Html.Attribute (PagesMsg userMsg)"
|
||||
},
|
||||
{
|
||||
"name": "submitIfValid",
|
||||
"comment": " ",
|
||||
"type": "String.String -> (List.List ( String.String, String.String ) -> Basics.Bool) -> Html.Attribute (Pages.Msg.Msg userMsg)"
|
||||
"type": "String.String -> (List.List ( String.String, String.String ) -> Basics.Bool) -> Html.Attribute (PagesMsg userMsg)"
|
||||
}
|
||||
],
|
||||
"binops": []
|
||||
|
@ -17,7 +17,7 @@ import Json.Decode.Extra
|
||||
import Markdown.Block
|
||||
import Markdown.Renderer
|
||||
import MarkdownCodec
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path
|
||||
@ -68,7 +68,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = static.data.metadata.title
|
||||
, body =
|
||||
|
@ -18,7 +18,7 @@ import Markdown.Parser
|
||||
import Markdown.Renderer
|
||||
import MarkdownCodec
|
||||
import NextPrevious
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
||||
@ -203,7 +203,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = static.data.titles.title ++ " - elm-pages docs"
|
||||
, body =
|
||||
|
@ -8,7 +8,7 @@ import Head.Seo as Seo
|
||||
import Html.Styled as Html exposing (..)
|
||||
import Html.Styled.Attributes as Attr exposing (css)
|
||||
import Link
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path
|
||||
@ -77,7 +77,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "elm-pages - a statically typed site generator"
|
||||
, body =
|
||||
|
@ -7,7 +7,7 @@ import Head
|
||||
import Head.Seo as Seo
|
||||
import Html.Styled exposing (..)
|
||||
import Html.Styled.Attributes as Attr exposing (css, href)
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path
|
||||
@ -57,7 +57,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData {}
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "elm-pages blog"
|
||||
, body =
|
||||
|
@ -4,9 +4,9 @@ import BackendTask exposing (BackendTask)
|
||||
import FatalError exposing (FatalError)
|
||||
import Head
|
||||
import Head.Seo as Seo
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
import Shared
|
||||
import View exposing (View)
|
||||
@ -76,6 +76,6 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
View.placeholder "Blog.Slug_"
|
||||
|
@ -5,8 +5,8 @@ import ErrorPage exposing (ErrorPage)
|
||||
import FatalError exposing (FatalError)
|
||||
import Head
|
||||
import Html.Styled exposing (text)
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
import Server.Request as Request exposing (Parser)
|
||||
import Server.Response as Response exposing (Response)
|
||||
@ -68,7 +68,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "Cookie test"
|
||||
, body =
|
||||
|
@ -7,9 +7,9 @@ import Head
|
||||
import Head.Seo as Seo
|
||||
import Html.Styled as Html
|
||||
import Http
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Path exposing (Path)
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
import Shared
|
||||
@ -115,7 +115,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model static =
|
||||
{ title = "Counter"
|
||||
, body =
|
||||
|
@ -14,8 +14,8 @@ import Form.Value as Value
|
||||
import Head
|
||||
import Html.Styled as Html
|
||||
import Html.Styled.Attributes exposing (css)
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Platform.Sub
|
||||
import RouteBuilder
|
||||
import Server.Request
|
||||
@ -201,7 +201,7 @@ view :
|
||||
-> sharedModel
|
||||
-> Model
|
||||
-> RouteBuilder.StaticPayload Data ActionData RouteParams
|
||||
-> View.View (Pages.Msg.Msg Msg)
|
||||
-> View.View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model app =
|
||||
{ title = "DarkMode"
|
||||
, body =
|
||||
|
@ -16,9 +16,9 @@ import Html.Styled as Html
|
||||
import Html.Styled.Attributes as Attr
|
||||
import Json.Decode as Decode
|
||||
import Json.Encode as Encode
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl
|
||||
import Pages.Transition exposing (FetcherSubmitStatus(..))
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Platform.Sub
|
||||
import RouteBuilder
|
||||
import Server.Request
|
||||
@ -196,7 +196,7 @@ view :
|
||||
-> sharedModel
|
||||
-> Model
|
||||
-> RouteBuilder.StaticPayload Data ActionData RouteParams
|
||||
-> View.View (Pages.Msg.Msg Msg)
|
||||
-> View.View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model app =
|
||||
let
|
||||
inFlight : List Action
|
||||
|
@ -8,9 +8,9 @@ import Head
|
||||
import Head.Seo as Seo
|
||||
import Html.Styled exposing (text)
|
||||
import Json.Decode as Decode
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
import Shared
|
||||
import View exposing (View)
|
||||
@ -78,7 +78,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "Index page"
|
||||
, body =
|
||||
|
@ -14,9 +14,9 @@ import Head.Seo as Seo
|
||||
import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import Html.Styled
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
||||
import Server.Request as Request exposing (Parser)
|
||||
import Server.Response
|
||||
@ -222,7 +222,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
let
|
||||
user : User
|
||||
|
@ -11,8 +11,8 @@ import Head
|
||||
import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import Html.Styled
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
||||
import Server.Request as Request exposing (Parser)
|
||||
import Server.Response
|
||||
@ -120,7 +120,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel app =
|
||||
{ title = "GET Form Example"
|
||||
, body =
|
||||
|
@ -9,9 +9,9 @@ import Head.Seo as Seo
|
||||
import Html.Styled as Html exposing (Html)
|
||||
import Html.Styled.Attributes as Attr
|
||||
import MySession
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
import Server.Request as Request
|
||||
import Server.Response as Response exposing (Response)
|
||||
@ -151,7 +151,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model static =
|
||||
{ title = "Hello!"
|
||||
, body =
|
||||
|
@ -5,9 +5,9 @@ import ErrorPage exposing (ErrorPage)
|
||||
import FatalError exposing (FatalError)
|
||||
import Head
|
||||
import Head.Seo as Seo
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
import Server.Request as Request
|
||||
import Server.Response as Response exposing (Response)
|
||||
@ -74,6 +74,6 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
View.placeholder "Hello"
|
||||
|
@ -13,9 +13,9 @@ import Html.Styled exposing (a, div, text)
|
||||
import Html.Styled.Attributes as Attr
|
||||
import Json.Decode as Decode
|
||||
import Json.Encode as Encode
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Random
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
import Shared
|
||||
@ -94,7 +94,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel app =
|
||||
{ title = "Index page"
|
||||
, body =
|
||||
|
@ -6,9 +6,9 @@ import Head
|
||||
import Head.Seo as Seo
|
||||
import Html.Styled as Html exposing (text)
|
||||
import Html.Styled.Attributes as Attr
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
import Shared
|
||||
import View exposing (View)
|
||||
@ -72,7 +72,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "Links"
|
||||
, body =
|
||||
|
@ -11,8 +11,8 @@ import Head
|
||||
import Html.Styled as Html exposing (Html)
|
||||
import Html.Styled.Attributes as Attr
|
||||
import MySession
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Route
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
import Server.Request as Request
|
||||
@ -83,7 +83,7 @@ type alias Data =
|
||||
}
|
||||
|
||||
|
||||
form : Form.DoneForm String (BackendTask error (Combined String String)) data (List (Html (Pages.Msg.Msg Msg)))
|
||||
form : Form.DoneForm String (BackendTask error (Combined String String)) data (List (Html (PagesMsg Msg)))
|
||||
form =
|
||||
Form.init
|
||||
(\username ->
|
||||
@ -202,7 +202,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "Login"
|
||||
, body =
|
||||
|
@ -6,9 +6,9 @@ import FatalError exposing (FatalError)
|
||||
import Head
|
||||
import Head.Seo as Seo
|
||||
import MySession
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Route
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
import Server.Request as Request
|
||||
@ -90,6 +90,6 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
View.placeholder "Logout"
|
||||
|
@ -7,9 +7,9 @@ import FatalError exposing (FatalError)
|
||||
import Form.FormData exposing (Method(..))
|
||||
import Head
|
||||
import Head.Seo as Seo
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Path exposing (Path)
|
||||
import Route
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
@ -126,6 +126,6 @@ view :
|
||||
-> Shared.Model
|
||||
-> templateModel
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model static =
|
||||
View.placeholder "Redirect"
|
||||
|
@ -6,8 +6,8 @@ import ErrorPage exposing (ErrorPage)
|
||||
import FatalError exposing (FatalError)
|
||||
import Head
|
||||
import Html.Styled exposing (div, text)
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
import Server.Request as Request exposing (Parser)
|
||||
import Server.Response as Response exposing (Response)
|
||||
@ -70,7 +70,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "Basic Auth Test"
|
||||
, body =
|
||||
|
@ -7,8 +7,8 @@ import ErrorPage exposing (ErrorPage)
|
||||
import FatalError exposing (FatalError)
|
||||
import Head
|
||||
import Html.Styled exposing (div, text)
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
import Server.Request as Request exposing (Parser)
|
||||
import Server.Response as Response exposing (Response)
|
||||
@ -106,7 +106,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "Response Headers Test"
|
||||
, body =
|
||||
|
@ -203,7 +203,7 @@ errorsView :
|
||||
}
|
||||
errorsView =
|
||||
Elm.Declare.fn2 "errorsView"
|
||||
--errorsView : Form.Errors String -> Validation.Field String parsed kind -> Html.Styled.Html (Pages.Msg.Msg Msg)
|
||||
--errorsView : Form.Errors String -> Validation.Field String parsed kind -> Html.Styled.Html (PagesMsg Msg)
|
||||
( "errors", Elm.Annotation.namedWith [ "Form" ] "Errors" [ Elm.Annotation.string ] |> Just )
|
||||
( "field"
|
||||
, Elm.Annotation.namedWith [ "Form", "Validation" ]
|
||||
|
@ -11,7 +11,7 @@ import Html.Styled as Html exposing (..)
|
||||
import Html.Styled.Attributes as Attr
|
||||
import Html.Styled.Keyed as HtmlKeyed
|
||||
import Html.Styled.Lazy as HtmlLazy
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
@ -78,7 +78,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = ""
|
||||
, body =
|
||||
|
@ -6,7 +6,7 @@ import Head
|
||||
import Head.Seo as Seo
|
||||
import Html.Styled as Html exposing (text)
|
||||
import Html.Styled.Attributes as Attr
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
@ -72,7 +72,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "Index page"
|
||||
, body =
|
||||
|
@ -11,7 +11,7 @@ import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import Json.Decode exposing (Decoder)
|
||||
import Json.Encode as Encode
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path exposing (Path)
|
||||
@ -182,7 +182,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model static =
|
||||
{ title = title static.routeParams
|
||||
, body =
|
||||
|
@ -11,7 +11,7 @@ import Html.Attributes as Attr
|
||||
import Html.Keyed
|
||||
import Json.Decode as Decode
|
||||
import Json.Encode as Encode
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path exposing (Path)
|
||||
@ -132,7 +132,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model static =
|
||||
{ title = static.data.story |> Tuple.first |> (\(Item common _) -> common.title)
|
||||
, body =
|
||||
|
@ -6,7 +6,7 @@ import ErrorPage exposing (ErrorPage)
|
||||
import FatalError exposing (FatalError)
|
||||
import Head
|
||||
import Html exposing (div, text)
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
||||
import Server.Request as Request exposing (Parser)
|
||||
@ -70,7 +70,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "Basic Auth Test"
|
||||
, body =
|
||||
|
@ -7,7 +7,7 @@ import Head
|
||||
import Head.Seo as Seo
|
||||
import Html
|
||||
import Html.Attributes as Attr
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
||||
@ -87,7 +87,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "File Upload"
|
||||
, body =
|
||||
|
@ -14,7 +14,7 @@ import Head
|
||||
import Head.Seo as Seo
|
||||
import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
||||
@ -232,7 +232,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel app =
|
||||
let
|
||||
user : User
|
||||
|
@ -9,7 +9,7 @@ import Head
|
||||
import Head.Seo as Seo
|
||||
import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path exposing (Path)
|
||||
@ -117,7 +117,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model static =
|
||||
{ title = "Placeholder"
|
||||
, body =
|
||||
@ -136,7 +136,7 @@ view maybeUrl sharedModel model static =
|
||||
}
|
||||
|
||||
|
||||
exampleForm : Html (Pages.Msg.Msg Msg)
|
||||
exampleForm : Html (PagesMsg Msg)
|
||||
exampleForm =
|
||||
Html.form
|
||||
[ FormDecoder.formDataOnSubmit
|
||||
|
@ -9,7 +9,7 @@ import Head.Seo as Seo
|
||||
import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import MySession
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
||||
@ -123,7 +123,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "Hello!"
|
||||
, body =
|
||||
|
@ -9,7 +9,7 @@ import Head
|
||||
import Head.Seo as Seo
|
||||
import Html
|
||||
import Http
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path exposing (Path)
|
||||
@ -134,7 +134,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model static =
|
||||
{ title = "Hello!"
|
||||
, body = [ Html.text "Hello" ]
|
||||
|
@ -8,7 +8,7 @@ import Head
|
||||
import Head.Seo as Seo
|
||||
import Html
|
||||
import Html.Attributes as Attr
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path exposing (Path)
|
||||
@ -127,7 +127,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model static =
|
||||
{ title = "Placeholder"
|
||||
, body =
|
||||
|
@ -9,7 +9,7 @@ import Head.Seo as Seo
|
||||
import Html exposing (..)
|
||||
import Json.Decode as Decode exposing (Decoder)
|
||||
import Json.Encode
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Route
|
||||
@ -84,7 +84,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "Pokedex"
|
||||
, body =
|
||||
|
@ -11,7 +11,7 @@ import Head.Seo as Seo
|
||||
import Html as Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import MySession
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Route
|
||||
@ -145,7 +145,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "Login"
|
||||
, body =
|
||||
|
@ -9,7 +9,7 @@ import Head.Seo as Seo
|
||||
import Html exposing (..)
|
||||
import Html.Attributes exposing (src)
|
||||
import Json.Decode as Decode
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
@ -133,7 +133,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = static.data.pokemon.name
|
||||
, body =
|
||||
|
@ -8,7 +8,7 @@ import Head.Seo as Seo
|
||||
import Html
|
||||
import Json.Decode as Decode
|
||||
import Json.Encode as Encode
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
@ -63,7 +63,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "Placeholder"
|
||||
, body = [ Html.text static.data.portGreeting ]
|
||||
|
@ -5,7 +5,7 @@ import FatalError exposing (FatalError)
|
||||
import Head
|
||||
import Head.Seo as Seo
|
||||
import Html
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Route
|
||||
@ -72,7 +72,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "Placeholder"
|
||||
, body =
|
||||
|
@ -12,7 +12,7 @@ import Head
|
||||
import Head.Seo as Seo
|
||||
import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path exposing (Path)
|
||||
@ -199,7 +199,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model static =
|
||||
{ title = "Search"
|
||||
, body =
|
||||
|
@ -8,7 +8,7 @@ import Head
|
||||
import Head.Seo as Seo
|
||||
import Html
|
||||
import Html.Attributes as Attr
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Route
|
||||
@ -106,7 +106,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
case static.data of
|
||||
LoggedIn loggedInInfo ->
|
||||
|
@ -16,7 +16,7 @@ import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import Http
|
||||
import MySession
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path exposing (Path)
|
||||
@ -249,7 +249,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model static =
|
||||
{ title = "Signup"
|
||||
, body =
|
||||
|
@ -19,7 +19,7 @@ import Head.Seo as Seo
|
||||
import Html.Styled as Html exposing (Html)
|
||||
import Html.Styled.Attributes as Attr exposing (css)
|
||||
import Icon
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
@ -210,7 +210,7 @@ validateCapitalized string =
|
||||
( Nothing, [ "Needs to be capitalized" ] )
|
||||
|
||||
|
||||
form : Form.DoneForm String (BackendTask FatalError (Combined String User)) data (List (Html (Pages.Msg.Msg Msg)))
|
||||
form : Form.DoneForm String (BackendTask FatalError (Combined String User)) data (List (Html (PagesMsg Msg)))
|
||||
form =
|
||||
Form.init
|
||||
(\first last username email dob checkin checkout rating password passwordConfirmation comments candidates offers pushNotifications acceptTerms ->
|
||||
@ -679,7 +679,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model static =
|
||||
let
|
||||
user : User
|
||||
|
@ -7,7 +7,7 @@ import FatalError exposing (FatalError)
|
||||
import Head
|
||||
import Head.Seo as Seo
|
||||
import Html
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
@ -139,7 +139,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "Time"
|
||||
, body =
|
||||
|
@ -15,7 +15,7 @@ import Head
|
||||
import Html
|
||||
import Json.Decode as Decode
|
||||
import Json.Encode as Encode
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl
|
||||
import Path
|
||||
import Platform.Sub
|
||||
@ -119,7 +119,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> RouteBuilder.StaticPayload Data ActionData RouteParams
|
||||
-> View.View (Pages.Msg.Msg Msg)
|
||||
-> View.View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model app =
|
||||
{ title = "Users"
|
||||
, body =
|
||||
|
@ -5,7 +5,7 @@ import FatalError exposing (FatalError)
|
||||
import Head
|
||||
import Head.Seo as Seo
|
||||
import Html.Styled exposing (text)
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
@ -82,7 +82,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ body =
|
||||
[ text (static.routeParams.name |> Maybe.withDefault "NOTHING")
|
||||
|
@ -4,7 +4,7 @@ import BackendTask exposing (BackendTask)
|
||||
import FatalError exposing (FatalError)
|
||||
import Head
|
||||
import Html.Styled exposing (text)
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
import Shared
|
||||
@ -69,7 +69,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ body =
|
||||
[ Debug.toString static.routeParams |> text
|
||||
|
@ -4,7 +4,7 @@ import BackendTask exposing (BackendTask)
|
||||
import FatalError exposing (FatalError)
|
||||
import Head
|
||||
import Html.Styled exposing (text)
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
import Shared
|
||||
@ -59,7 +59,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ body =
|
||||
[ Debug.toString static.routeParams |> text
|
||||
|
@ -4,7 +4,7 @@ import BackendTask
|
||||
import FatalError
|
||||
import Head
|
||||
import Head.Seo as Seo
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
@ -65,7 +65,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "TODO title"
|
||||
, body = []
|
||||
|
@ -11,7 +11,7 @@ import Head.Seo as Seo
|
||||
import Html.Styled as Html
|
||||
import Html.Styled.Attributes exposing (css)
|
||||
import Json.Decode as Decode
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import RouteBuilder exposing (StatefulRoute, StaticPayload)
|
||||
@ -131,7 +131,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model static =
|
||||
{ title = "TODO title"
|
||||
, body =
|
||||
|
@ -12,7 +12,7 @@ import GroupName exposing (GroupName)
|
||||
import Head
|
||||
import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Path exposing (Path)
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
@ -121,7 +121,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model app =
|
||||
{ title = "Create Group"
|
||||
, body =
|
||||
|
@ -10,7 +10,7 @@ import Form.Validation as Validation exposing (Combined, Field)
|
||||
import Head
|
||||
import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Path exposing (Path)
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
@ -123,7 +123,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model app =
|
||||
{ title = "Dependent Form Example"
|
||||
, body =
|
||||
|
@ -18,7 +18,7 @@ import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import Icon
|
||||
import MySession
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Path exposing (Path)
|
||||
import Request.Hasura
|
||||
@ -224,7 +224,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model app =
|
||||
{ title = "Ctrl-R Smoothies"
|
||||
, body =
|
||||
@ -307,7 +307,7 @@ type QuantityChange
|
||||
| Decrement
|
||||
|
||||
|
||||
productView : StaticPayload Data ActionData RouteParams -> Dict String Cart.CartEntry -> Smoothie -> Html (Pages.Msg.Msg Msg)
|
||||
productView : StaticPayload Data ActionData RouteParams -> Dict String Cart.CartEntry -> Smoothie -> Html (PagesMsg Msg)
|
||||
productView app cart item =
|
||||
let
|
||||
quantityInCart : Int
|
||||
|
@ -17,7 +17,7 @@ import Html.Attributes as Attr
|
||||
import Json.Decode
|
||||
import Json.Encode
|
||||
import MySession
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Request.Hasura
|
||||
@ -58,7 +58,7 @@ type alias Login =
|
||||
}
|
||||
|
||||
|
||||
form : Form.DoneForm String (BackendTask (Combined String String)) data (List (Html (Pages.Msg.Msg Msg)))
|
||||
form : Form.DoneForm String (BackendTask (Combined String String)) data (List (Html (PagesMsg Msg)))
|
||||
form =
|
||||
Form.init
|
||||
(\username password ->
|
||||
@ -249,7 +249,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel app =
|
||||
{ title = "Login"
|
||||
, body =
|
||||
|
@ -16,7 +16,7 @@ import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import MySession
|
||||
import Pages.FormState
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Path exposing (Path)
|
||||
import Request.Hasura
|
||||
@ -197,7 +197,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model app =
|
||||
let
|
||||
pendingCreation : Result (Dict String (List String)) NewItem
|
||||
@ -263,7 +263,7 @@ parseIgnoreErrors ( maybeParsed, fieldErrors ) =
|
||||
Err fieldErrors
|
||||
|
||||
|
||||
pendingView : NewItem -> Html (Pages.Msg.Msg Msg)
|
||||
pendingView : NewItem -> Html (PagesMsg Msg)
|
||||
pendingView item =
|
||||
Html.div [ Attr.class "item" ]
|
||||
[ Html.h2 [] [ Html.text "Preview" ]
|
||||
|
@ -11,7 +11,7 @@ import Form.Validation as Validation exposing (Combined, Field)
|
||||
import Head
|
||||
import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Path exposing (Path)
|
||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||
@ -114,7 +114,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model app =
|
||||
{ title = "Dependent Form Example"
|
||||
, body =
|
||||
|
@ -11,7 +11,7 @@ import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import MySession
|
||||
import Pages.FormState
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Transition
|
||||
import Pages.Url
|
||||
@ -148,7 +148,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model app =
|
||||
{ title = "Ctrl-R Smoothies"
|
||||
, body =
|
||||
@ -175,7 +175,7 @@ view maybeUrl sharedModel model app =
|
||||
}
|
||||
|
||||
|
||||
nameFormView : User -> Maybe Pages.Transition.Transition -> Html (Pages.Msg.Msg userMsg)
|
||||
nameFormView : User -> Maybe Pages.Transition.Transition -> Html (PagesMsg userMsg)
|
||||
nameFormView user maybeTransition =
|
||||
Html.form
|
||||
(Pages.FormState.listeners "test"
|
||||
|
@ -17,7 +17,7 @@ import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import MySession
|
||||
import Pages.FormState
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path exposing (Path)
|
||||
@ -119,7 +119,7 @@ type alias Action =
|
||||
}
|
||||
|
||||
|
||||
formParser : Form.DoneForm String (BackendTask (Validation.Combined String Action)) Data (List (Html (Pages.Msg.Msg msg)))
|
||||
formParser : Form.DoneForm String (BackendTask (Validation.Combined String Action)) Data (List (Html (PagesMsg msg)))
|
||||
formParser =
|
||||
Form.init
|
||||
(\username name ->
|
||||
@ -261,7 +261,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model app =
|
||||
{ title = "Ctrl-R Smoothies"
|
||||
, body =
|
||||
|
@ -10,7 +10,7 @@ import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import Http
|
||||
import MySession
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path exposing (Path)
|
||||
@ -180,7 +180,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model static =
|
||||
{ title = "Signup"
|
||||
, body =
|
||||
|
@ -15,7 +15,7 @@ import Head
|
||||
import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import MySession
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Transition exposing (Transition(..))
|
||||
import Path exposing (Path)
|
||||
@ -312,7 +312,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model app =
|
||||
let
|
||||
pendingCreation : Maybe NewItem
|
||||
@ -364,7 +364,7 @@ view maybeUrl sharedModel model app =
|
||||
}
|
||||
|
||||
|
||||
pendingView : NewItem -> Html (Pages.Msg.Msg Msg)
|
||||
pendingView : NewItem -> Html (PagesMsg Msg)
|
||||
pendingView item =
|
||||
Html.div [ Attr.class "item" ]
|
||||
[ Html.div []
|
||||
|
@ -20,10 +20,10 @@ import Json.Decode as Decode
|
||||
import Json.Encode as Encode
|
||||
import List.Nonempty
|
||||
import MySession
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Script as Script
|
||||
import Pages.Url
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Route
|
||||
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
||||
import SendGrid
|
||||
@ -87,7 +87,7 @@ type alias EnvVariables =
|
||||
}
|
||||
|
||||
|
||||
form : Form.DoneForm String (BackendTask FatalError (Combined String EmailAddress)) data (List (Html (Pages.Msg.Msg Msg)))
|
||||
form : Form.DoneForm String (BackendTask FatalError (Combined String EmailAddress)) data (List (Html (PagesMsg Msg)))
|
||||
form =
|
||||
Form.init
|
||||
(\fieldEmail ->
|
||||
@ -133,7 +133,7 @@ form =
|
||||
|> Form.hiddenKind ( "kind", "login" ) "Expected kind"
|
||||
|
||||
|
||||
logoutForm : Form.DoneForm String () data (List (Html (Pages.Msg.Msg Msg)))
|
||||
logoutForm : Form.DoneForm String () data (List (Html (PagesMsg Msg)))
|
||||
logoutForm =
|
||||
Form.init
|
||||
{ combine =
|
||||
@ -382,7 +382,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view _ sharedModel app =
|
||||
{ title = "Login"
|
||||
, body =
|
||||
|
@ -20,9 +20,9 @@ import Json.Decode as Decode
|
||||
import Json.Encode as Encode
|
||||
import LoadingSpinner
|
||||
import MySession
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Transition exposing (FetcherSubmitStatus(..))
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Path
|
||||
import Route
|
||||
import RouteBuilder exposing (StatefulRoute, StaticPayload)
|
||||
@ -328,7 +328,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model app =
|
||||
let
|
||||
pendingFetchers : List Action
|
||||
@ -710,7 +710,7 @@ clearCompletedForm =
|
||||
-- VIEW ALL ENTRIES
|
||||
|
||||
|
||||
viewEntries : StaticPayload Data ActionData RouteParams -> Visibility -> List Entry -> Html (Pages.Msg.Msg Msg)
|
||||
viewEntries : StaticPayload Data ActionData RouteParams -> Visibility -> List Entry -> Html (PagesMsg Msg)
|
||||
viewEntries app visibility entries =
|
||||
let
|
||||
isVisible todo =
|
||||
@ -750,12 +750,12 @@ viewEntries app visibility entries =
|
||||
-- VIEW INDIVIDUAL ENTRIES
|
||||
|
||||
|
||||
viewKeyedEntry : StaticPayload Data ActionData RouteParams -> Entry -> ( String, Html (Pages.Msg.Msg Msg) )
|
||||
viewKeyedEntry : StaticPayload Data ActionData RouteParams -> Entry -> ( String, Html (PagesMsg Msg) )
|
||||
viewKeyedEntry app todo =
|
||||
( todo.id, lazy2 viewEntry app todo )
|
||||
|
||||
|
||||
viewEntry : StaticPayload Data ActionData RouteParams -> Entry -> Html (Pages.Msg.Msg Msg)
|
||||
viewEntry : StaticPayload Data ActionData RouteParams -> Entry -> Html (PagesMsg Msg)
|
||||
viewEntry app todo =
|
||||
li
|
||||
[ classList
|
||||
@ -785,7 +785,7 @@ viewEntry app todo =
|
||||
-- VIEW CONTROLS AND FOOTER
|
||||
|
||||
|
||||
viewControls : StaticPayload Data ActionData RouteParams -> Visibility -> List Entry -> Html (Pages.Msg.Msg Msg)
|
||||
viewControls : StaticPayload Data ActionData RouteParams -> Visibility -> List Entry -> Html (PagesMsg Msg)
|
||||
viewControls app visibility entries =
|
||||
let
|
||||
entriesCompleted =
|
||||
@ -804,7 +804,7 @@ viewControls app visibility entries =
|
||||
]
|
||||
|
||||
|
||||
viewControlsCount : Int -> Html (Pages.Msg.Msg Msg)
|
||||
viewControlsCount : Int -> Html (PagesMsg Msg)
|
||||
viewControlsCount entriesLeft =
|
||||
let
|
||||
item_ =
|
||||
@ -827,7 +827,7 @@ type Visibility
|
||||
| Completed
|
||||
|
||||
|
||||
viewControlsFilters : Visibility -> Html (Pages.Msg.Msg Msg)
|
||||
viewControlsFilters : Visibility -> Html (PagesMsg Msg)
|
||||
viewControlsFilters visibility =
|
||||
ul
|
||||
[ class "filters" ]
|
||||
@ -852,7 +852,7 @@ visibilityToString visibility =
|
||||
"Completed"
|
||||
|
||||
|
||||
visibilitySwap : Maybe String -> Visibility -> Visibility -> Html (Pages.Msg.Msg Msg)
|
||||
visibilitySwap : Maybe String -> Visibility -> Visibility -> Html (PagesMsg Msg)
|
||||
visibilitySwap visibilityParam visibility actualVisibility =
|
||||
li
|
||||
[]
|
||||
@ -863,7 +863,7 @@ visibilitySwap visibilityParam visibility actualVisibility =
|
||||
]
|
||||
|
||||
|
||||
viewControlsClear : StaticPayload Data ActionData RouteParams -> Int -> Html (Pages.Msg.Msg Msg)
|
||||
viewControlsClear : StaticPayload Data ActionData RouteParams -> Int -> Html (PagesMsg Msg)
|
||||
viewControlsClear app entriesCompleted =
|
||||
clearCompletedForm
|
||||
|> Form.toDynamicFetcher "clear-completed"
|
||||
|
@ -8,7 +8,7 @@ import Head.Seo as Seo
|
||||
import Html exposing (..)
|
||||
import Json.Decode as Decode exposing (Decoder)
|
||||
import Json.Encode
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Route
|
||||
@ -75,7 +75,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams ActionData
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "Pokedex"
|
||||
, body =
|
||||
|
@ -8,7 +8,7 @@ import Head.Seo as Seo
|
||||
import Html
|
||||
import Html.Attributes as Attr
|
||||
import MySession
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Route
|
||||
@ -118,7 +118,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "Login"
|
||||
, body =
|
||||
|
@ -15,7 +15,7 @@ import Head
|
||||
import Head.Seo as Seo
|
||||
import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path exposing (Path)
|
||||
@ -234,7 +234,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model static =
|
||||
{ title = "Profile"
|
||||
, body =
|
||||
|
@ -14,7 +14,7 @@ import Head
|
||||
import Head.Seo as Seo
|
||||
import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path exposing (Path)
|
||||
@ -166,7 +166,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model static =
|
||||
{ title = "Search"
|
||||
, body =
|
||||
|
@ -10,7 +10,7 @@ import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import Http
|
||||
import MySession
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path exposing (Path)
|
||||
@ -179,7 +179,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model static =
|
||||
{ title = "Signup"
|
||||
, body =
|
||||
|
@ -17,7 +17,7 @@ import Html exposing (Html)
|
||||
import Html.Attributes as Attr
|
||||
import Html.Events
|
||||
import MySession
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path exposing (Path)
|
||||
@ -228,7 +228,7 @@ view :
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model static =
|
||||
{ title = "Todo List"
|
||||
, body =
|
||||
@ -353,7 +353,7 @@ type alias Todo =
|
||||
}
|
||||
|
||||
|
||||
todoItemView : Todo -> Html (Pages.Msg.Msg Msg)
|
||||
todoItemView : Todo -> Html (PagesMsg Msg)
|
||||
todoItemView todo =
|
||||
Html.li []
|
||||
[ Html.div
|
||||
|
@ -97,7 +97,7 @@ import Pages.Fetcher
|
||||
import Pages.FormState
|
||||
import Pages.Internal.NotFoundReason exposing (NotFoundReason)
|
||||
import Pages.Internal.RoutePattern exposing (RoutePattern)
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Transition
|
||||
import Path exposing (Path)
|
||||
@ -117,7 +117,7 @@ type alias StatefulRoute routeParams data action model msg =
|
||||
-> Shared.Model
|
||||
-> model
|
||||
-> StaticPayload data action routeParams
|
||||
-> View (Pages.Msg.Msg msg)
|
||||
-> View (PagesMsg msg)
|
||||
, head :
|
||||
StaticPayload data action routeParams
|
||||
-> List Head.Tag
|
||||
@ -176,7 +176,7 @@ buildNoState :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload data action routeParams
|
||||
-> View (Pages.Msg.Msg ())
|
||||
-> View (PagesMsg ())
|
||||
}
|
||||
-> Builder routeParams data action
|
||||
-> StatefulRoute routeParams data action {} ()
|
||||
@ -212,7 +212,7 @@ buildWithLocalState :
|
||||
-> Shared.Model
|
||||
-> model
|
||||
-> StaticPayload data action routeParams
|
||||
-> View (Pages.Msg.Msg msg)
|
||||
-> View (PagesMsg msg)
|
||||
, init : Maybe PageUrl -> Shared.Model -> StaticPayload data action routeParams -> ( model, Effect msg )
|
||||
, update : PageUrl -> Shared.Model -> StaticPayload data action routeParams -> msg -> model -> ( model, Effect msg )
|
||||
, subscriptions : Maybe PageUrl -> routeParams -> Path -> Shared.Model -> model -> Sub msg
|
||||
@ -258,7 +258,7 @@ buildWithSharedState :
|
||||
-> Shared.Model
|
||||
-> model
|
||||
-> StaticPayload data action routeParams
|
||||
-> View (Pages.Msg.Msg msg)
|
||||
-> View (PagesMsg msg)
|
||||
, init : Maybe PageUrl -> Shared.Model -> StaticPayload data action routeParams -> ( model, Effect msg )
|
||||
, update : PageUrl -> Shared.Model -> StaticPayload data action routeParams -> msg -> model -> ( model, Effect msg, Maybe Shared.Msg )
|
||||
, subscriptions : Maybe PageUrl -> routeParams -> Path -> Shared.Model -> model -> Sub msg
|
||||
|
@ -6,7 +6,7 @@ import Head
|
||||
import Head.Seo as Seo
|
||||
import Html
|
||||
import Html.Styled.Attributes as Attr
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.Url
|
||||
import Path
|
||||
@ -74,7 +74,7 @@ view :
|
||||
Maybe PageUrl
|
||||
-> Shared.Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel static =
|
||||
{ title = "elm-pages is running"
|
||||
, body =
|
||||
|
36
src/Form.elm
36
src/Form.elm
@ -283,8 +283,8 @@ import Html.Styled.Lazy
|
||||
import Pages.FormState as Form exposing (FormState)
|
||||
import Pages.Internal.Form exposing (Validation(..), unwrapResponse)
|
||||
import Pages.Internal.Msg
|
||||
import Pages.Msg
|
||||
import Pages.Transition exposing (Transition(..))
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Path exposing (Path)
|
||||
|
||||
|
||||
@ -981,7 +981,7 @@ runOneOfServerSideHelp rawFormData firstFoundErrors (ServerForms parsers) =
|
||||
|
||||
{-| -}
|
||||
renderHtml :
|
||||
List (Html.Attribute (Pages.Msg.Msg msg))
|
||||
List (Html.Attribute (PagesMsg msg))
|
||||
-> (actionData -> Maybe (Response error))
|
||||
-> AppContext app actionData
|
||||
-> data
|
||||
@ -991,10 +991,10 @@ renderHtml :
|
||||
(Form.Validation.Validation error parsed named constraints)
|
||||
data
|
||||
(Context error data
|
||||
-> List (Html (Pages.Msg.Msg msg))
|
||||
-> List (Html (PagesMsg msg))
|
||||
)
|
||||
msg
|
||||
-> Html (Pages.Msg.Msg msg)
|
||||
-> Html (PagesMsg msg)
|
||||
renderHtml attrs accessResponse app data (FinalForm options a b c) =
|
||||
Html.Lazy.lazy6 renderHelper attrs accessResponse options app data (FormInternal a b c)
|
||||
|
||||
@ -1178,7 +1178,7 @@ withOnSubmit onSubmit (FinalForm options a b c) =
|
||||
|
||||
{-| -}
|
||||
renderStyledHtml :
|
||||
List (Html.Styled.Attribute (Pages.Msg.Msg msg))
|
||||
List (Html.Styled.Attribute (PagesMsg msg))
|
||||
-> (actionData -> Maybe (Response error))
|
||||
-> AppContext app actionData
|
||||
-> data
|
||||
@ -1188,10 +1188,10 @@ renderStyledHtml :
|
||||
(Form.Validation.Validation error parsed named constraints)
|
||||
data
|
||||
(Context error data
|
||||
-> List (Html.Styled.Html (Pages.Msg.Msg msg))
|
||||
-> List (Html.Styled.Html (PagesMsg msg))
|
||||
)
|
||||
msg
|
||||
-> Html.Styled.Html (Pages.Msg.Msg msg)
|
||||
-> Html.Styled.Html (PagesMsg msg)
|
||||
renderStyledHtml attrs accessResponse app data (FinalForm options a b c) =
|
||||
Html.Styled.Lazy.lazy6 renderStyledHelper attrs accessResponse options app data (FormInternal a b c)
|
||||
|
||||
@ -1202,13 +1202,13 @@ type alias Response error =
|
||||
|
||||
|
||||
renderHelper :
|
||||
List (Html.Attribute (Pages.Msg.Msg msg))
|
||||
List (Html.Attribute (PagesMsg msg))
|
||||
-> (actionData -> Maybe (Response error))
|
||||
-> RenderOptions msg
|
||||
-> AppContext app actionData
|
||||
-> data
|
||||
-> FormInternal error (Form.Validation.Validation error parsed named constraints) data (Context error data -> List (Html (Pages.Msg.Msg msg)))
|
||||
-> Html (Pages.Msg.Msg msg)
|
||||
-> FormInternal error (Form.Validation.Validation error parsed named constraints) data (Context error data -> List (Html (PagesMsg msg)))
|
||||
-> Html (PagesMsg msg)
|
||||
renderHelper attrs accessResponse options formState data form =
|
||||
-- TODO Get transition context from `app` so you can check if the current form is being submitted
|
||||
-- TODO either as a transition or a fetcher? Should be easy enough to check for the `id` on either of those?
|
||||
@ -1216,7 +1216,7 @@ renderHelper attrs accessResponse options formState data form =
|
||||
{ formId, hiddenInputs, children, isValid } =
|
||||
helperValues toHiddenInput accessResponse options formState data form
|
||||
|
||||
toHiddenInput : List (Html.Attribute (Pages.Msg.Msg msg)) -> Html (Pages.Msg.Msg msg)
|
||||
toHiddenInput : List (Html.Attribute (PagesMsg msg)) -> Html (PagesMsg msg)
|
||||
toHiddenInput hiddenAttrs =
|
||||
Html.input hiddenAttrs []
|
||||
in
|
||||
@ -1241,13 +1241,13 @@ renderHelper attrs accessResponse options formState data form =
|
||||
|
||||
|
||||
renderStyledHelper :
|
||||
List (Html.Styled.Attribute (Pages.Msg.Msg msg))
|
||||
List (Html.Styled.Attribute (PagesMsg msg))
|
||||
-> (actionData -> Maybe (Response error))
|
||||
-> RenderOptions msg
|
||||
-> AppContext app actionData
|
||||
-> data
|
||||
-> FormInternal error (Form.Validation.Validation error parsed named constraints) data (Context error data -> List (Html.Styled.Html (Pages.Msg.Msg msg)))
|
||||
-> Html.Styled.Html (Pages.Msg.Msg msg)
|
||||
-> FormInternal error (Form.Validation.Validation error parsed named constraints) data (Context error data -> List (Html.Styled.Html (PagesMsg msg)))
|
||||
-> Html.Styled.Html (PagesMsg msg)
|
||||
renderStyledHelper attrs accessResponse options formState data form =
|
||||
-- TODO Get transition context from `app` so you can check if the current form is being submitted
|
||||
-- TODO either as a transition or a fetcher? Should be easy enough to check for the `id` on either of those?
|
||||
@ -1255,7 +1255,7 @@ renderStyledHelper attrs accessResponse options formState data form =
|
||||
{ formId, hiddenInputs, children, isValid } =
|
||||
helperValues toHiddenInput accessResponse options formState data form
|
||||
|
||||
toHiddenInput : List (Html.Attribute (Pages.Msg.Msg msg)) -> Html.Styled.Html (Pages.Msg.Msg msg)
|
||||
toHiddenInput : List (Html.Attribute (PagesMsg msg)) -> Html.Styled.Html (PagesMsg msg)
|
||||
toHiddenInput hiddenAttrs =
|
||||
Html.Styled.input (hiddenAttrs |> List.map StyledAttr.fromUnstyled) []
|
||||
in
|
||||
@ -1279,7 +1279,7 @@ renderStyledHelper attrs accessResponse options formState data form =
|
||||
|
||||
|
||||
helperValues :
|
||||
(List (Html.Attribute (Pages.Msg.Msg msg)) -> view)
|
||||
(List (Html.Attribute (PagesMsg msg)) -> view)
|
||||
-> (actionData -> Maybe (Response error))
|
||||
-> RenderOptions msg
|
||||
-> AppContext app actionData
|
||||
@ -1478,7 +1478,7 @@ type alias HtmlForm error parsed input msg =
|
||||
Form
|
||||
error
|
||||
{ combine : Combined error parsed
|
||||
, view : Context error input -> List (Html (Pages.Msg.Msg msg))
|
||||
, view : Context error input -> List (Html (PagesMsg msg))
|
||||
}
|
||||
input
|
||||
|
||||
@ -1602,7 +1602,7 @@ type alias StyledHtmlForm error parsed data msg =
|
||||
Form
|
||||
error
|
||||
{ combine : Combined error parsed
|
||||
, view : Context error data -> List (Html.Styled.Html (Pages.Msg.Msg msg))
|
||||
, view : Context error data -> List (Html.Styled.Html (PagesMsg msg))
|
||||
}
|
||||
data
|
||||
|
||||
|
@ -13,11 +13,11 @@ import Html.Attributes as Attr
|
||||
import Html.Events
|
||||
import Json.Decode as Decode exposing (Decoder)
|
||||
import Pages.Internal.Msg
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
|
||||
|
||||
{-| -}
|
||||
listeners : String -> List (Attribute (Pages.Msg.Msg userMsg))
|
||||
listeners : String -> List (Attribute (PagesMsg userMsg))
|
||||
listeners formId =
|
||||
[ Html.Events.on "focusin" (Decode.value |> Decode.map Pages.Internal.Msg.FormFieldEvent)
|
||||
, Html.Events.on "focusout" (Decode.value |> Decode.map Pages.Internal.Msg.FormFieldEvent)
|
||||
|
@ -35,10 +35,10 @@ import Pages.Internal.Msg
|
||||
import Pages.Internal.NotFoundReason exposing (NotFoundReason)
|
||||
import Pages.Internal.ResponseSketch as ResponseSketch exposing (ResponseSketch)
|
||||
import Pages.Internal.String as String
|
||||
import Pages.Msg
|
||||
import Pages.ProgramConfig exposing (ProgramConfig)
|
||||
import Pages.StaticHttpRequest as StaticHttpRequest
|
||||
import Pages.Transition
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Path exposing (Path)
|
||||
import QueryParams
|
||||
import Task
|
||||
@ -54,7 +54,7 @@ type alias Program userModel userMsg pageData actionData sharedData errorPage =
|
||||
mainView :
|
||||
ProgramConfig userMsg userModel route pageData actionData sharedData effect (Msg userMsg pageData actionData sharedData errorPage) errorPage
|
||||
-> Model userModel pageData actionData sharedData
|
||||
-> { title : String, body : List (Html (Pages.Msg.Msg userMsg)) }
|
||||
-> { title : String, body : List (Html (PagesMsg userMsg)) }
|
||||
mainView config model =
|
||||
case model.notFound of
|
||||
Just info ->
|
||||
@ -309,7 +309,7 @@ init config flags url key =
|
||||
type Msg userMsg pageData actionData sharedData errorPage
|
||||
= LinkClicked Browser.UrlRequest
|
||||
| UrlChanged Url
|
||||
| UserMsg (Pages.Msg.Msg userMsg)
|
||||
| UserMsg (PagesMsg userMsg)
|
||||
| SetField { formId : String, name : String, value : String }
|
||||
| UpdateCacheAndUrlNew Bool Url (Maybe userMsg) (Result Http.Error ( Url, ResponseSketch pageData actionData sharedData ))
|
||||
| FetcherComplete Bool String Int (Result Http.Error ( Maybe userMsg, ActionDataOrRedirect actionData ))
|
||||
|
@ -27,10 +27,10 @@ import Pages.Internal.Platform.Effect as Effect exposing (Effect)
|
||||
import Pages.Internal.Platform.StaticResponses as StaticResponses
|
||||
import Pages.Internal.Platform.ToJsPayload as ToJsPayload
|
||||
import Pages.Internal.ResponseSketch as ResponseSketch
|
||||
import Pages.Msg
|
||||
import Pages.ProgramConfig exposing (ProgramConfig)
|
||||
import Pages.SiteConfig exposing (SiteConfig)
|
||||
import Pages.StaticHttp.Request
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Path exposing (Path)
|
||||
import RenderRequest exposing (RenderRequest)
|
||||
import RequestsAndPending exposing (RequestsAndPending)
|
||||
@ -503,7 +503,7 @@ initLegacy site ((RenderRequest.SinglePage includeHtml singleRequest _) as rende
|
||||
)
|
||||
|> Tuple.first
|
||||
|
||||
viewValue : { title : String, body : List (Html (Pages.Msg.Msg userMsg)) }
|
||||
viewValue : { title : String, body : List (Html (PagesMsg userMsg)) }
|
||||
viewValue =
|
||||
(config.view Dict.empty Dict.empty Nothing currentPage Nothing sharedData pageData_ maybeActionData |> .view) pageModel
|
||||
|
||||
@ -550,7 +550,7 @@ initLegacy site ((RenderRequest.SinglePage includeHtml singleRequest _) as rende
|
||||
)
|
||||
|> (\( actionHeaders, byteEncodedPageData ) ->
|
||||
let
|
||||
rendered : { view : userModel -> { title : String, body : List (Html (Pages.Msg.Msg userMsg)) }, head : List Tag }
|
||||
rendered : { view : userModel -> { title : String, body : List (Html (PagesMsg userMsg)) }, head : List Tag }
|
||||
rendered =
|
||||
config.view Dict.empty Dict.empty Nothing currentPage Nothing sharedData pageData_ maybeActionData
|
||||
in
|
||||
@ -641,7 +641,7 @@ initLegacy site ((RenderRequest.SinglePage includeHtml singleRequest _) as rende
|
||||
pageData2 =
|
||||
config.errorPageToData error
|
||||
|
||||
viewValue : { title : String, body : List (Html (Pages.Msg.Msg userMsg)) }
|
||||
viewValue : { title : String, body : List (Html (PagesMsg userMsg)) }
|
||||
viewValue =
|
||||
(config.view Dict.empty Dict.empty Nothing currentPage Nothing sharedData pageData2 Nothing |> .view) pageModel
|
||||
in
|
||||
@ -854,7 +854,7 @@ render404Page config sharedData isDevServer path notFoundReason =
|
||||
pathAndRoute =
|
||||
{ path = path, route = config.notFoundRoute }
|
||||
|
||||
viewValue : { title : String, body : List (Html (Pages.Msg.Msg userMsg)) }
|
||||
viewValue : { title : String, body : List (Html (PagesMsg userMsg)) }
|
||||
viewValue =
|
||||
(config.view Dict.empty
|
||||
Dict.empty
|
||||
|
File diff suppressed because it is too large
Load Diff
@ -22,10 +22,10 @@ import Pages.Internal.NotFoundReason exposing (NotFoundReason)
|
||||
import Pages.Internal.Platform.ToJsPayload
|
||||
import Pages.Internal.ResponseSketch exposing (ResponseSketch)
|
||||
import Pages.Internal.RoutePattern exposing (RoutePattern)
|
||||
import Pages.Msg
|
||||
import Pages.PageUrl exposing (PageUrl)
|
||||
import Pages.SiteConfig exposing (SiteConfig)
|
||||
import Pages.Transition
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Path exposing (Path)
|
||||
import Url exposing (Url)
|
||||
|
||||
@ -66,7 +66,7 @@ type alias ProgramConfig userMsg userModel route pageData actionData sharedData
|
||||
-> pageData
|
||||
-> Maybe actionData
|
||||
->
|
||||
{ view : userModel -> { title : String, body : List (Html (Pages.Msg.Msg userMsg)) }
|
||||
{ view : userModel -> { title : String, body : List (Html (PagesMsg userMsg)) }
|
||||
, head : List Head.Tag
|
||||
}
|
||||
, handleRoute : route -> BackendTask FatalError (Maybe NotFoundReason)
|
||||
|
@ -1,14 +1,14 @@
|
||||
module Pages.Msg exposing
|
||||
( Msg
|
||||
module PagesMsg exposing
|
||||
( PagesMsg
|
||||
, fromMsg
|
||||
, map, noOp
|
||||
, onSubmit
|
||||
)
|
||||
|
||||
{-| In `elm-pages`, Route modules have their own `Msg` type which can be used like a normal TEA (The Elm Architecture) app.
|
||||
But the `Msg` defined in a `Route` module is wrapped in the `Pages.Msg.Msg` type.
|
||||
But the `Msg` defined in a `Route` module is wrapped in the `PagesMsg` type.
|
||||
|
||||
@docs Msg
|
||||
@docs PagesMsg
|
||||
|
||||
You can wrap your Route Module's `Msg` using `fromMsg`.
|
||||
|
||||
@ -25,12 +25,14 @@ import Pages.Internal.Msg
|
||||
|
||||
|
||||
{-| -}
|
||||
type alias Msg userMsg =
|
||||
type alias PagesMsg userMsg =
|
||||
Pages.Internal.Msg.Msg userMsg
|
||||
|
||||
|
||||
{-|
|
||||
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
|
||||
type Msg
|
||||
= ToggleMenu
|
||||
|
||||
@ -39,16 +41,16 @@ type alias Msg userMsg =
|
||||
-> Shared.Model
|
||||
-> Model
|
||||
-> StaticPayload Data ActionData RouteParams
|
||||
-> View (Pages.Msg.Msg Msg)
|
||||
-> View (PagesMsg Msg)
|
||||
view maybeUrl sharedModel model app =
|
||||
{ title = "My Page"
|
||||
, view =
|
||||
[ button
|
||||
-- we need to wrap our Route module's `Msg` here so we have a `Pages.Msg.Msg Msg`
|
||||
[ onClick (Pages.Msg.fromMsg ToggleMenu) ]
|
||||
-- we need to wrap our Route module's `Msg` here so we have a `PagesMsg Msg`
|
||||
[ onClick (PagesMsg.fromMsg ToggleMenu) ]
|
||||
[]
|
||||
|
||||
-- `Form.renderHtml` gives us `Html (Pages.Msg.Msg msg)`, so we don't need to wrap its Msg type
|
||||
-- `Form.renderHtml` gives us `Html (PagesMsg msg)`, so we don't need to wrap its Msg type
|
||||
, logoutForm
|
||||
|> Form.toDynamicTransition "logout"
|
||||
|> Form.withOnSubmit (\_ -> NewItemSubmitted)
|
||||
@ -57,7 +59,7 @@ type alias Msg userMsg =
|
||||
}
|
||||
|
||||
-}
|
||||
fromMsg : userMsg -> Msg userMsg
|
||||
fromMsg : userMsg -> PagesMsg userMsg
|
||||
fromMsg userMsg =
|
||||
Pages.Internal.Msg.UserMsg userMsg
|
||||
|
||||
@ -65,27 +67,27 @@ fromMsg userMsg =
|
||||
{-| A Msg that is handled by the elm-pages framework and does nothing. Helpful for when you don't want to register a callback.
|
||||
|
||||
import Browser.Dom as Dom
|
||||
import Pages.Msg
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
import Task
|
||||
|
||||
resetViewport : Cmd (Pages.Msg.Msg msg)
|
||||
resetViewport : Cmd (PagesMsg msg)
|
||||
resetViewport =
|
||||
Dom.setViewport 0 0
|
||||
|> Task.perform (\() -> Pages.Msg.noOp)
|
||||
|> Task.perform (\() -> PagesMsg.noOp)
|
||||
|
||||
-}
|
||||
noOp : Msg userMsg
|
||||
noOp : PagesMsg userMsg
|
||||
noOp =
|
||||
Pages.Internal.Msg.NoOp
|
||||
|
||||
|
||||
{-| -}
|
||||
map : (a -> b) -> Msg a -> Msg b
|
||||
map : (a -> b) -> PagesMsg a -> PagesMsg b
|
||||
map mapFn msg =
|
||||
Pages.Internal.Msg.map mapFn msg
|
||||
|
||||
|
||||
{-| -}
|
||||
onSubmit : Attribute (Msg userMsg)
|
||||
onSubmit : Attribute (PagesMsg userMsg)
|
||||
onSubmit =
|
||||
Pages.Internal.Msg.onSubmit
|
Loading…
Reference in New Issue
Block a user