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 :
-    { toModel : () -> model
+    Static
-    , toMsg : Never -> msg
+    ->
-    , page : Static
+        { toModel : () -> model
-    }
+        , toMsg : Never -> msg
+        }
     -> 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 :
-    { toModel : pageModel -> model
+    Sandbox pageModel pageMsg
-    , toMsg : pageMsg -> msg
+    ->
-    , page : Sandbox pageModel pageMsg
+        { toModel : pageModel -> model
-    }
+        , toMsg : pageMsg -> msg
-    -> Page pageModel pageMsg model msg
+        }
-sandbox page =
+    -> Page pageModel pageMsg model msg
-    Page
+sandbox page { toModel, toMsg } =
-        { toModel = page.toModel
+    Page
-        , toMsg = page.toMsg
+        { toModel = toModel
-        , page = SandboxConfig page.page
+        , toMsg = toMsg
+        , page = page
         }

examples/basic/package/Application/Sandbox.elm

@@ -130,20 +130,22 @@ type alias Sandbox pageModel pageMsg =
 
 
 static :
-    { toModel : () -> model
+    Static
-    , toMsg : Never -> msg
+    ->
-    , page : Static
+        { toModel : () -> model
-    }
+        , toMsg : Never -> msg
+        }
     -> Page () Never model msg
 static =
     Page.static
 
 
 sandbox :
-    { toModel : pageModel -> model
+    Sandbox pageModel pageMsg
-    , toMsg : pageMsg -> msg
+    ->
-    , page : Sandbox pageModel pageMsg
+        { toModel : pageModel -> model
-    }
+        , toMsg : pageMsg -> msg
+        }
     -> Page pageModel pageMsg model msg
 sandbox =
     Page.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,12 +15,12 @@ type Msg
     | Decrement
 
 
-page : Application.Sandbox Model Msg
 page =
-    { init = init
+    Application.sandbox
-    , update = update
+        { init = init
-    , view = view
+        , update = update
-    }
+        , view = view
+        }
 
 
 init : Model

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

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

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

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