elm-pages 2.1.10 → 3.0.0-beta.0

package/src/Pages/Internal/Form.elm

@@ -0,0 +1,17 @@
+module Pages.Internal.Form exposing (Validation(..), ViewField)
+
+import Dict exposing (Dict)
+import Form.FieldStatus exposing (FieldStatus)
+import Json.Encode as Encode
+
+
+type Validation error parsed kind field
+    = Validation (Maybe (ViewField kind)) (Maybe String) ( Maybe parsed, Dict String (List error) )
+
+
+{-| -}
+type alias ViewField kind =
+    { value : Maybe String
+    , status : FieldStatus
+    , kind : ( kind, List ( String, Encode.Value ) )
+    }

package/src/Pages/Internal/NotFoundReason.elm

@@ -1,12 +1,11 @@
-module Pages.Internal.NotFoundReason exposing (codec, ModuleContext, NotFoundReason(..), Payload, Record, document)
+module Pages.Internal.NotFoundReason exposing (ModuleContext, NotFoundReason(..), Payload, Record, document)
 
 {-| Exposed for internal use only (used in generated code).
 
-@docs codec, ModuleContext, NotFoundReason, Payload, Record, document
+@docs ModuleContext, NotFoundReason, Payload, Record, document
 
 -}
 
-import Codec exposing (Codec)
 import Html exposing (Html)
 import Html.Attributes as Attr
 import Pages.Internal.RoutePattern exposing (RoutePattern)
@@ -97,7 +96,7 @@ document pathPatterns payload =
                         ]
                     , Html.br [] []
                     , Html.br [] []
-                    , Html.text " from the Page Module "
+                    , Html.text " from the Route Module "
                     , Html.br [] []
                     , Html.br [] []
                     , Html.code []
@@ -187,57 +186,6 @@ prerenderedOptionsView moduleContext routes =
                 ]
 
 
-{-| -}
-codec : Codec Payload
-codec =
-    Codec.object Payload
-        |> Codec.field "path"
-            .path
-            (Codec.list Codec.string
-                |> Codec.map Path.join Path.toSegments
-            )
-        |> Codec.field "reason" .reason reasonCodec
-        |> Codec.buildObject
-
-
-reasonCodec : Codec NotFoundReason
-reasonCodec =
-    Codec.custom
-        (\vNoMatchingRoute vNotPrerendered vNotPrerenderedOrHandledByFallback vUnhandledServerRoute value ->
-            case value of
-                NoMatchingRoute ->
-                    vNoMatchingRoute
-
-                NotPrerendered moduleContext prerenderedRoutes ->
-                    vNotPrerendered moduleContext prerenderedRoutes
-
-                NotPrerenderedOrHandledByFallback moduleContext prerenderedRoutes ->
-                    vNotPrerenderedOrHandledByFallback moduleContext prerenderedRoutes
-
-                UnhandledServerRoute moduleContext ->
-                    vUnhandledServerRoute moduleContext
-        )
-        |> Codec.variant0 "NoMatchingRoute" NoMatchingRoute
-        |> Codec.variant2 "NotPrerendered" NotPrerendered moduleContextCodec (Codec.list recordCodec)
-        |> Codec.variant2 "NotPrerenderedOrHandledByFallback" NotPrerenderedOrHandledByFallback moduleContextCodec (Codec.list recordCodec)
-        |> Codec.variant1 "UnhandledServerRoute" UnhandledServerRoute moduleContextCodec
-        |> Codec.buildCustom
-
-
-moduleContextCodec : Codec ModuleContext
-moduleContextCodec =
-    Codec.object ModuleContext
-        |> Codec.field "moduleName" .moduleName (Codec.list Codec.string)
-        |> Codec.field "routePattern" .routePattern Pages.Internal.RoutePattern.codec
-        |> Codec.field "matchedRouteParams" .matchedRouteParams recordCodec
-        |> Codec.buildObject
-
-
-recordCodec : Codec (List ( String, String ))
-recordCodec =
-    Codec.list (Codec.tuple Codec.string Codec.string)
-
-
 recordToString : List ( String, String ) -> String
 recordToString fields =
     "{ "