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

package/src/Pages/Internal/Form.elm

@@ -1,17 +0,0 @@
-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/Msg.elm

@@ -1,79 +0,0 @@
-module Pages.Msg exposing
-    ( Msg(..)
-    , map, onSubmit, fetcherOnSubmit, submitIfValid
-    )
-
-{-|
-
-@docs Msg
-
-@docs map, onSubmit, fetcherOnSubmit, submitIfValid
-
--}
-
-import Form.FormData exposing (FormData)
-import FormDecoder
-import Html exposing (Attribute)
-import Html.Attributes as Attr
-import Json.Decode
-
-
-{-| -}
-type Msg userMsg
-    = UserMsg userMsg
-    | Submit FormData
-    | SubmitIfValid String FormData Bool
-    | SubmitFetcher String FormData Bool (Maybe userMsg)
-    | FormFieldEvent Json.Decode.Value
-
-
-{-| -}
-onSubmit : Attribute (Msg userMsg)
-onSubmit =
-    FormDecoder.formDataOnSubmit
-        |> Attr.map Submit
-
-
-{-| -}
-submitIfValid : String -> (List ( String, String ) -> Bool) -> Attribute (Msg userMsg)
-submitIfValid formId isValid =
-    FormDecoder.formDataOnSubmit
-        |> Attr.map (\formData -> SubmitIfValid formId formData (isValid 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 =
-    case msg of
-        UserMsg userMsg ->
-            UserMsg (mapFn userMsg)
-
-        Submit info ->
-            Submit info
-
-        SubmitIfValid formId info isValid ->
-            SubmitIfValid formId info isValid
-
-        SubmitFetcher formId info isValid toUserMsg ->
-            SubmitFetcher formId info isValid (Maybe.map mapFn toUserMsg)
-
-        FormFieldEvent value ->
-            FormFieldEvent value

package/src/Pages/Transition.elm

@@ -1,70 +0,0 @@
-module Pages.Transition exposing
-    ( Transition(..), LoadingState(..), map
-    , FetcherState, FetcherSubmitStatus(..)
-    )
-
-{-|
-
-@docs Transition, LoadingState, map
-
-
-## Fetchers
-
-@docs FetcherState, FetcherSubmitStatus
-
--}
-
-import Form.FormData exposing (FormData)
-import Path exposing (Path)
-import Time
-
-
-{-| -}
-type Transition
-    = Submitting FormData
-    | LoadAfterSubmit FormData Path LoadingState
-    | Loading Path LoadingState
-
-
-{-| -}
-type LoadingState
-    = Redirecting
-    | Load
-    | ActionRedirect
-
-
-{-| -}
-type alias FetcherState actionData =
-    { status : FetcherSubmitStatus actionData
-    , payload : FormData
-    , initiatedAt : Time.Posix
-    }
-
-
-{-| -}
-type FetcherSubmitStatus actionData
-    = FetcherSubmitting
-    | FetcherReloading actionData
-    | FetcherComplete actionData
-
-
-{-| -}
-map : (a -> b) -> FetcherState a -> FetcherState b
-map mapFn fetcherState =
-    { status = mapStatus mapFn fetcherState.status
-    , payload = fetcherState.payload
-    , initiatedAt = fetcherState.initiatedAt
-    }
-
-
-mapStatus : (a -> b) -> FetcherSubmitStatus a -> FetcherSubmitStatus b
-mapStatus mapFn fetcherSubmitStatus =
-    case fetcherSubmitStatus of
-        FetcherSubmitting ->
-            FetcherSubmitting
-
-        FetcherReloading value ->
-            FetcherReloading (mapFn value)
-
-        FetcherComplete value ->
-            FetcherComplete (mapFn value)