elm-pages 3.0.0-beta.2 → 3.0.0-beta.20

package/src/Pages/GeneratorProgramConfig.elm

@@ -0,0 +1,15 @@
+module Pages.GeneratorProgramConfig exposing (GeneratorProgramConfig)
+
+import Json.Decode as Decode
+import Json.Encode
+import Pages.Internal.Platform.ToJsPayload
+import Pages.Script exposing (Script)
+
+
+type alias GeneratorProgramConfig =
+    { data : Script
+    , toJsPort : Json.Encode.Value -> Cmd Never
+    , fromJsPort : Sub Decode.Value
+    , gotBatchSub : Sub Decode.Value
+    , sendPageData : Pages.Internal.Platform.ToJsPayload.NewThingForPort -> Cmd Never
+    }

package/src/Pages/Internal/FatalError.elm

@@ -0,0 +1,5 @@
+module Pages.Internal.FatalError exposing (FatalError(..))
+
+
+type FatalError
+    = FatalError { title : String, body : String }

package/src/Pages/Internal/Form.elm

@@ -1,4 +1,4 @@
-module Pages.Internal.Form exposing (Validation(..), ViewField)
+module Pages.Internal.Form exposing (Response(..), Validation(..), ViewField, unwrapResponse)
 
 import Dict exposing (Dict)
 import Form.FieldStatus exposing (FieldStatus)
@@ -15,3 +15,23 @@ type alias ViewField kind =
     , status : FieldStatus
     , kind : ( kind, List ( String, Encode.Value ) )
     }
+
+
+{-| -}
+type Response error
+    = Response
+        { fields : List ( String, String )
+        , errors : Dict String (List error)
+        , clientErrors : Dict String (List error)
+        }
+
+
+unwrapResponse :
+    Response error
+    ->
+        { fields : List ( String, String )
+        , errors : Dict String (List error)
+        , clientErrors : Dict String (List error)
+        }
+unwrapResponse (Response response) =
+    response