that sandbox api tho

examples/basic/package/Application/Internals/Sandbox/Page.elm

@@ -27,15 +27,10 @@ type Page pageModel pageMsg model msg
 type alias Page_ pageModel pageMsg model msg =
     { toModel : pageModel -> model
     , toMsg : pageMsg -> msg
-    , page : Config pageModel pageMsg model msg
+    , page : Sandbox pageModel pageMsg
     }
 
 
-type Config pageModel pageMsg model msg
-    = StaticConfig Static
-    | SandboxConfig (Sandbox pageModel pageMsg)
-
-
 unwrap :
     Page pageModel pageMsg model msg
     -> Page_ pageModel pageMsg model msg
@@ -53,16 +48,21 @@ type alias Static =
 
 
 static :
+    Static
+    ->
         { toModel : () -> model
         , toMsg : Never -> msg
-    , page : Static
         }
     -> Page () Never model msg
-static page =
+static page { toModel, toMsg } =
     Page
-        { toModel = page.toModel
+        { toModel = toModel
-        , toMsg = page.toMsg
+        , toMsg = toMsg
-        , page = StaticConfig page.page
+        , page =
+            { init = ()
+            , update = always identity
+            , view = \_ -> Html.map never page.view
+            }
         }
 
 
@@ -78,14 +78,15 @@ type alias Sandbox pageModel pageMsg =
 
 
 sandbox :
+    Sandbox pageModel pageMsg
+    ->
         { toModel : pageModel -> model
         , toMsg : pageMsg -> msg
-    , page : Sandbox pageModel pageMsg
         }
     -> Page pageModel pageMsg model msg
-sandbox page =
+sandbox page { toModel, toMsg } =
     Page
-        { toModel = page.toModel
+        { toModel = toModel
-        , toMsg = page.toMsg
+        , toMsg = toMsg
-        , page = SandboxConfig page.page
+        , page = page
         }

examples/basic/package/Application/Sandbox.elm

@@ -130,9 +130,10 @@ type alias Sandbox pageModel pageMsg =
 
 
 static :
+    Static
+    ->
         { toModel : () -> model
         , toMsg : Never -> msg
-    , page : Static
         }
     -> Page () Never model msg
 static =
@@ -140,9 +141,10 @@ static =
 
 
 sandbox :
+    Sandbox pageModel pageMsg
+    ->
         { toModel : pageModel -> model
         , toMsg : pageMsg -> msg
-    , page : Sandbox pageModel pageMsg
         }
     -> Page pageModel pageMsg model msg
 sandbox =

examples/basic/src/Sandbox/Main.elm

@@ -50,22 +50,19 @@ type alias Pages =
 pages : Pages
 pages =
     { homepage =
-        Application.static
+        Homepage.page
             { toModel = HomepageModel
             , toMsg = HomepageMsg
-            , page = Homepage.page
             }
     , counter =
-        Application.sandbox
+        Counter.page
             { toModel = CounterModel
             , toMsg = CounterMsg
-            , page = Counter.page
             }
     , notFound =
-        Application.static
+        NotFound.page
             { toModel = NotFoundModel
             , toMsg = NotFoundMsg
-            , page = NotFound.page
             }
     }
 

examples/basic/src/Sandbox/Pages/Counter.elm

@@ -15,8 +15,8 @@ type Msg
     | Decrement
 
 
-page : Application.Sandbox Model Msg
 page =
+    Application.sandbox
         { init = init
         , update = update
         , view = view

examples/basic/src/Sandbox/Pages/Homepage.elm

@@ -12,8 +12,8 @@ type alias Msg =
     Never
 
 
-page : Application.Static
 page =
+    Application.static
         { view = view
         }
 

examples/basic/src/Sandbox/Pages/NotFound.elm

@@ -12,8 +12,8 @@ type alias Msg =
     Never
 
 
-page : Application.Static
 page =
+    Application.static
         { view = view
         }