dont expose them nasty types tho

examples/elm-ui/src/Generated/Pages.elm

@@ -4,7 +4,7 @@ module Generated.Pages exposing
     , page
     )
 
-import Application.Page as Page exposing (Page)
+import Application.Page as Page 
 import Element exposing (Element)
 import Generated.Route as Route exposing (Route)
 import Global

examples/html/src/Pages/Counter.elm

@@ -4,7 +4,7 @@ module Pages.Counter exposing
     , page
     )
 
-import Application.Page as Page exposing (Page)
+import Application.Page as Page
 import Html exposing (..)
 import Html.Events as Events
 
@@ -19,7 +19,6 @@ type Msg
     | Decrement
 
 
-page : Page () Model Msg (Html Msg) a b c d e f g
 page =
     Page.sandbox
         { title = always "Counter"

examples/html/src/Pages/Index.elm

@@ -4,7 +4,7 @@ module Pages.Index exposing
     , page
     )
 
-import Application.Page as Page exposing (Page)
+import Application.Page as Page
 import Html exposing (..)
 
 
@@ -16,7 +16,6 @@ type alias Msg =
     Never
 
 
-page : Page () Model Msg (Html Msg) a b c d e f g
 page =
     Page.static
         { title = "Homepage"

examples/html/src/Pages/NotFound.elm

@@ -4,7 +4,7 @@ module Pages.NotFound exposing
     , page
     )
 
-import Application.Page as Page exposing (Page)
+import Application.Page as Page
 import Html exposing (..)
 
 
@@ -16,7 +16,6 @@ type alias Msg =
     Never
 
 
-page : Page () Model Msg (Html Msg) a b c d e f g
 page =
     Page.static
         { title = "Page not found"

examples/html/src/Pages/Random.elm

@@ -4,7 +4,7 @@ module Pages.Random exposing
     , page
     )
 
-import Application.Page as Page exposing (Page)
+import Application.Page as Page
 import Html exposing (..)
 import Html.Attributes as Attr
 import Html.Events as Events
@@ -22,7 +22,6 @@ type Msg
     | CatResponded (Result Http.Error String)
 
 
-page : Page () Model Msg (Html Msg) a b c d e f g
 page =
     Page.element
         { title = always "Random"

examples/html/src/Pages/Settings/Account.elm

@@ -4,7 +4,7 @@ module Pages.Settings.Account exposing
     , page
     )
 
-import Application.Page as Page exposing (Page)
+import Application.Page as Page
 import Html exposing (..)
 
 
@@ -16,7 +16,6 @@ type alias Msg =
     Never
 
 
-page : Page () Model Msg (Html Msg) a b c d e f g
 page =
     Page.static
         { title = "Account Settings"

examples/html/src/Pages/Settings/Notifications.elm

@@ -4,7 +4,7 @@ module Pages.Settings.Notifications exposing
     , page
     )
 
-import Application.Page as Page exposing (Page)
+import Application.Page as Page
 import Html exposing (..)
 
 
@@ -16,7 +16,6 @@ type alias Msg =
     Never
 
 
-page : Page () Model Msg (Html Msg) a b c d e f g
 page =
     Page.static
         { title = "Notification Settings"

examples/html/src/Pages/Settings/User.elm

@@ -4,7 +4,7 @@ module Pages.Settings.User exposing
     , page
     )
 
-import Application.Page as Page exposing (Page)
+import Application.Page as Page
 import Html exposing (..)
 
 
@@ -16,7 +16,6 @@ type alias Msg =
     Never
 
 
-page : Page () Model Msg (Html Msg) a b c d e f g
 page =
     Page.static
         { title = "User Settings"

examples/html/src/Pages/SignIn.elm

@@ -4,7 +4,7 @@ module Pages.SignIn exposing
     , page
     )
 
-import Application.Page as Page exposing (Page)
+import Application.Page as Page
 import Generated.Route as Route
 import Global
 import Html exposing (..)
@@ -29,7 +29,6 @@ type Field
     | Password
 
 
-page : Page () Model Msg (Html Msg) a b c Global.Model Global.Msg d e
 page =
     Page.component
         { title = title

examples/html/src/Pages/Users/Slug.elm

@@ -1,6 +1,6 @@
 module Pages.Users.Slug exposing (Model, Msg, page)
 
-import Application.Page as Page exposing (Page)
+import Application.Page as Page
 import Html exposing (..)
 
 
@@ -12,7 +12,6 @@ type alias Msg =
     Never
 
 
-page : Page String Model Msg (Html Msg) a b c d e f g
 page =
     Page.sandbox
         { title = title

src/Application/Page.elm

@@ -1,6 +1,5 @@
 module Application.Page exposing
-    ( Page
-    , Static, static
+    ( Static, static
     , Sandbox, sandbox
     , Element, element
     , Component, component
@@ -8,14 +7,7 @@ module Application.Page exposing
     , recipe, keep
     )
 
-{-|
-
-
-# Pages
-
-@docs Page
-
-Each page can be as simple or complex as you need:
+{-| Each page can be as simple or complex as you need:
 
 1.  [Static](#static) - for rendering a simple view
 
@@ -356,15 +348,7 @@ type alias Component pageRoute pageModel pageMsg globalModel globalMsg htmlPageM
     }
 
 
-{-|
-
-    Page.component
-        { title = title
-        , init = init
-        , update = update
-        , view = view
-        , subscriptions = subscriptions
-        }
+{-| Create an `component` page from a record. [Here's an example](https://github.com/ryannhg/elm-spa/examples/html/src/Pages/SignIn.elm)
 
 -}
 component :