Move Pages.Msg -> PagesMsg and Pages.Msg.Msg -> PagesMsg.PagesMsg.

codegen/GenerateMain.elm

@@ -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
                                                       )
                                                     ]

elm.json

@@ -25,7 +25,7 @@
         "Server.Session",
         "Server.SetCookie",
         "Server.Response",
-        "Pages.Msg",
+        "PagesMsg",
         "Pages.Manifest",
         "Pages.Manifest.Category",
         "Pages.Flags",

examples/base-path/app/Route/Index.elm

@@ -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 =

examples/base-path/app/Route/SubPage.elm

@@ -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 =

examples/blog-engine/app/Route/Admin/Slug_.elm

@@ -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 [] []

examples/blog-engine/app/Route/Index.elm

@@ -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 =

examples/blog-engine/app/Route/Posts/Slug_.elm

@@ -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 =

examples/docs.json

@@ -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": []

examples/docs/app/Route/Blog/Slug_.elm

@@ -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 =

examples/docs/app/Route/Docs/Section__.elm

@@ -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 =

examples/docs/app/Route/Index.elm

@@ -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 =

examples/docs/app/Route/Showcase.elm

@@ -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 =

examples/end-to-end/app/Route/Blog/Slug_.elm

@@ -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_"

examples/end-to-end/app/Route/CookieTest.elm

@@ -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 =

examples/end-to-end/app/Route/Counter.elm

@@ -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 =

examples/end-to-end/app/Route/DarkMode.elm

@@ -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 =

examples/end-to-end/app/Route/Fetcher.elm

@@ -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

examples/end-to-end/app/Route/FileData.elm

@@ -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 =

examples/end-to-end/app/Route/Form.elm

@@ -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

examples/end-to-end/app/Route/GetForm.elm

@@ -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 =

examples/end-to-end/app/Route/Greet.elm

@@ -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 =

examples/end-to-end/app/Route/Hello.elm

@@ -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"

examples/end-to-end/app/Route/Index.elm

@@ -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 =

examples/end-to-end/app/Route/Links.elm

@@ -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 =

examples/end-to-end/app/Route/Login.elm

@@ -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 =

examples/end-to-end/app/Route/Logout.elm

@@ -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"

examples/end-to-end/app/Route/Redirect.elm

@@ -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"

examples/end-to-end/app/Route/Test/BasicAuth.elm

@@ -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 =

examples/end-to-end/app/Route/Test/ResponseHeaders.elm

@@ -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 =

examples/end-to-end/script/src/AddForm.elm

@@ -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" ]

examples/escaping/app/Route/Escaping.elm

@@ -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 =

examples/escaping/app/Route/Index.elm

@@ -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 =

examples/hackernews/app/Route/Feed__.elm

@@ -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 =

examples/hackernews/app/Route/Stories/Id_.elm

@@ -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 =

examples/pokedex/app/Route/BasicAuth.elm

@@ -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 =

examples/pokedex/app/Route/FileUpload.elm

@@ -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 =

examples/pokedex/app/Route/Form.elm

@@ -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

examples/pokedex/app/Route/FormEvent.elm

@@ -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

examples/pokedex/app/Route/Greet.elm

@@ -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 =

examples/pokedex/app/Route/Hello.elm

@@ -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" ]

examples/pokedex/app/Route/HelloForm.elm

@@ -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 =

examples/pokedex/app/Route/Index.elm

@@ -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 =

examples/pokedex/app/Route/Login.elm

@@ -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 =

examples/pokedex/app/Route/PokedexNumber_.elm

@@ -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 =

examples/pokedex/app/Route/PortTest.elm

@@ -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 ]

examples/pokedex/app/Route/RedirectLinks.elm

@@ -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 =

examples/pokedex/app/Route/Search.elm

@@ -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 =

examples/pokedex/app/Route/Secret.elm

@@ -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 ->

examples/pokedex/app/Route/Signup.elm

@@ -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 =

examples/pokedex/app/Route/TailwindForm.elm

@@ -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

examples/pokedex/app/Route/Time.elm

@@ -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 =

examples/pokedex/app/Route/Users.elm

@@ -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 =

examples/routing/app/Route/Cats/Name__.elm

@@ -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")

examples/routing/app/Route/Date/SPLAT_.elm

@@ -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

examples/routing/app/Route/SPLAT__.elm

@@ -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

examples/routing/app/Route/Slide.elm

@@ -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 = []

examples/routing/app/Route/Slide/Number_.elm

@@ -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 =

examples/smoothies/app/Route/CreateGroup.elm

@@ -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 =

examples/smoothies/app/Route/DependentForm.elm

@@ -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 =

examples/smoothies/app/Route/Index.elm

@@ -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

examples/smoothies/app/Route/Login.elm

@@ -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 =

examples/smoothies/app/Route/New.elm

@@ -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" ]

examples/smoothies/app/Route/PasswordConfirmation.elm

@@ -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 =

examples/smoothies/app/Route/Profile.elm

@@ -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"

examples/smoothies/app/Route/Profile/Edit.elm

@@ -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 =

examples/smoothies/app/Route/Signup.elm

@@ -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 =

examples/smoothies/app/Route/SmoothieId_/Edit.elm

@@ -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 []

examples/todos/app/Route/Login.elm

@@ -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 =

examples/todos/app/Route/Visibility__.elm

@@ -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"

examples/trails/app/Route/Index.elm

@@ -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 =

examples/trails/app/Route/Login.elm

@@ -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 =

examples/trails/app/Route/Profile.elm

@@ -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 =

examples/trails/app/Route/Search.elm

@@ -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 =

examples/trails/app/Route/Signup.elm

@@ -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 =

examples/trails/app/Route/Todos.elm

@@ -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

generator/src/RouteBuilder.elm

@@ -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

generator/template/app/Route/Index.elm

@@ -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 =

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)))
+    -> FormInternal error (Form.Validation.Validation error parsed named constraints) data (Context error data -> List (Html (PagesMsg msg)))
-    -> Html (Pages.Msg.Msg 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)))
+    -> FormInternal error (Form.Validation.Validation error parsed named constraints) data (Context error data -> List (Html.Styled.Html (PagesMsg msg)))
-    -> Html.Styled.Html (Pages.Msg.Msg 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
 

src/Pages/FormState.elm

@@ -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)

src/Pages/Internal/Platform.elm

@@ -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 ))

src/Pages/Internal/Platform/Cli.elm

@@ -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

src/Pages/ProgramConfig.elm

@@ -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)

src/PagesMsg.elm

@@ -1,14 +1,14 @@
-module Pages.Msg exposing
+module PagesMsg exposing
-    ( Msg
+    ( 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`
+                -- we need to wrap our Route module's `Msg` here so we have a `PagesMsg Msg`
-                [ onClick (Pages.Msg.fromMsg ToggleMenu) ]
+                [ 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