elm-pages 3.0.0-beta.4 → 3.0.0-beta.40

package/src/Pages/Internal/Msg.elm

@@ -0,0 +1,93 @@
+module Pages.Internal.Msg exposing
+    ( Msg(..)
+      --, fetcherOnSubmit
+    , map
+      --, onSubmit
+      --, submitIfValid
+    )
+
+--import Form.FormData exposing (FormData)
+--import FormDecoder
+
+import Form exposing (Method)
+
+
+{-| -}
+type Msg userMsg
+    = UserMsg userMsg
+    | Submit { valid : Bool, method : Method, action : String, fields : List ( String, String ), id : String, msg : Maybe userMsg, useFetcher : Bool }
+      --| SubmitIfValid String FormData Bool (Maybe userMsg)
+      --| SubmitFetcher String FormData Bool (Maybe userMsg)
+    | FormMsg (Form.Msg (Msg userMsg))
+    | NoOp
+
+
+
+--{-| -}
+--onSubmit : Attribute (Msg userMsg)
+--onSubmit =
+--    FormDecoder.formDataOnSubmit
+--        |> Attr.map Submit
+--
+--
+--{-| -}
+--submitIfValid : Maybe ({ fields : List ( String, String ) } -> userMsg) -> String -> (List ( String, String ) -> Bool) -> Attribute (Msg userMsg)
+--submitIfValid userMsg formId isValid =
+--    FormDecoder.formDataOnSubmit
+--        |> Attr.map
+--            (\formData ->
+--                SubmitIfValid formId
+--                    formData
+--                    (isValid formData.fields)
+--                    (userMsg
+--                        |> Maybe.map
+--                            (\toUserMsg ->
+--                                toUserMsg { fields = formData.fields }
+--                            )
+--                    )
+--            )
+--
+--
+--
+--{-| -}
+--fetcherOnSubmit : Maybe ({ fields : List ( String, String ) } -> userMsg) -> String -> (List ( String, String ) -> Bool) -> Attribute (Msg userMsg)
+--fetcherOnSubmit userMsg formId isValid =
+--    FormDecoder.formDataOnSubmit
+--        |> Attr.map
+--            (\formData ->
+--                SubmitFetcher formId
+--                    formData
+--                    (isValid formData.fields)
+--                    (userMsg
+--                        |> Maybe.map
+--                            (\toUserMsg ->
+--                                toUserMsg { fields = formData.fields }
+--                            )
+--                    )
+--            )
+
+
+{-| -}
+map : (a -> b) -> Msg a -> Msg b
+map mapFn msg =
+    -- elm-review: known-unoptimized-recursion
+    case msg of
+        UserMsg userMsg ->
+            UserMsg (mapFn userMsg)
+
+        Submit info ->
+            Submit
+                { valid = info.valid
+                , fields = info.fields
+                , action = info.action
+                , id = info.id
+                , msg = Maybe.map mapFn info.msg
+                , method = info.method
+                , useFetcher = info.useFetcher
+                }
+
+        FormMsg value ->
+            FormMsg (Form.mapMsg (map mapFn) value)
+
+        NoOp ->
+            NoOp