dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-11-28 23:12:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

Rename type that is now internal-only.

Browse Source
This commit is contained in:
Dillon Kearns 2022-07-24 09:07:40 +02:00
parent 8c69fb26db
commit 9e70a093d5
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/Form.elm
View File

@ -1,5 +1,5 @@
module Form exposing module Form exposing
( Form(..), FieldErrors ( FieldErrors
, andThen , andThen
, Context , Context
, renderHtml, renderStyledHtml , renderHtml, renderStyledHtml
@ -886,7 +886,7 @@ renderHtml :
) )
-> Html (Pages.Msg.Msg msg) -> Html (Pages.Msg.Msg msg)
renderHtml attrs maybe app data (FinalForm options a b c) = renderHtml attrs maybe app data (FinalForm options a b c) =
Html.Lazy.lazy6 renderHelper attrs maybe options app data (Form a b c) Html.Lazy.lazy6 renderHelper attrs maybe options app data (FormInternal a b c)
{-| -} {-| -}
@ -911,8 +911,8 @@ type FinalForm error parsed data view
(data -> List ( String, String )) (data -> List ( String, String ))
toStatic : Form error parsed data view -> FinalForm error parsed data view toStatic : FormInternal error parsed data view -> FinalForm error parsed data view
toStatic (Form a b c) = toStatic (FormInternal a b c) =
let let
options = options =
{ submitStrategy = FetcherStrategy { submitStrategy = FetcherStrategy
@ -1089,7 +1089,7 @@ renderStyledHtml :
) )
-> Html.Styled.Html (Pages.Msg.Msg msg) -> Html.Styled.Html (Pages.Msg.Msg msg)
renderStyledHtml attrs maybe app data (FinalForm options a b c) = renderStyledHtml attrs maybe app data (FinalForm options a b c) =
Html.Styled.Lazy.lazy6 renderStyledHelper attrs maybe options app data (Form a b c) Html.Styled.Lazy.lazy6 renderStyledHelper attrs maybe options app data (FormInternal a b c)
renderHelper : renderHelper :
@ -1102,9 +1102,9 @@ renderHelper :
-> RenderOptions -> RenderOptions
-> AppContext app -> AppContext app
-> data -> data
-> Form error (Validation error parsed named) data (Context error data -> List (Html (Pages.Msg.Msg msg))) -> FormInternal error (Validation error parsed named) data (Context error data -> List (Html (Pages.Msg.Msg msg)))
-> Html (Pages.Msg.Msg msg) -> Html (Pages.Msg.Msg msg)
renderHelper attrs maybe options formState data ((Form fieldDefinitions parser toInitialValues) as form) = renderHelper attrs maybe options formState data ((FormInternal fieldDefinitions parser toInitialValues) as form) =
-- TODO Get transition context from `app` so you can check if the current form is being submitted -- TODO Get transition context from `app` so you can check if the current form is being submitted
-- TODO either as a transition or a fetcher? Should be easy enough to check for the `id` on either of those? -- TODO either as a transition or a fetcher? Should be easy enough to check for the `id` on either of those?
let let
@ -1141,9 +1141,9 @@ renderStyledHelper :
-> RenderOptions -> RenderOptions
-> AppContext app -> AppContext app
-> data -> data
-> Form error (Validation error parsed named) data (Context error data -> List (Html.Styled.Html (Pages.Msg.Msg msg))) -> FormInternal error (Validation error parsed named) data (Context error data -> List (Html.Styled.Html (Pages.Msg.Msg msg)))
-> Html.Styled.Html (Pages.Msg.Msg msg) -> Html.Styled.Html (Pages.Msg.Msg msg)
renderStyledHelper attrs maybe options formState data ((Form fieldDefinitions parser toInitialValues) as form) = renderStyledHelper attrs maybe options formState data ((FormInternal fieldDefinitions parser toInitialValues) as form) =
-- TODO Get transition context from `app` so you can check if the current form is being submitted -- TODO Get transition context from `app` so you can check if the current form is being submitted
-- TODO either as a transition or a fetcher? Should be easy enough to check for the `id` on either of those? -- TODO either as a transition or a fetcher? Should be easy enough to check for the `id` on either of those?
let let
@ -1183,9 +1183,9 @@ helperValues :
-> AppContext app -> AppContext app
-> data -> data
---> Form error parsed data view ---> Form error parsed data view
-> Form error (Validation error parsed named) data (Context error data -> List view) -> FormInternal error (Validation error parsed named) data (Context error data -> List view)
-> { formId : String, hiddenInputs : List view, children : List view, isValid : Bool } -> { formId : String, hiddenInputs : List view, children : List view, isValid : Bool }
helperValues toHiddenInput maybe options formState data (Form fieldDefinitions parser toInitialValues) = helperValues toHiddenInput maybe options formState data (FormInternal fieldDefinitions parser toInitialValues) =
let let
formId : String formId : String
formId = formId =
@ -1373,8 +1373,8 @@ type alias StyledHtmlFormNew error parsed data msg =
{-| -} {-| -}
type Form error parsed data view type FormInternal error parsed data view
= Form = FormInternal
-- TODO for renderCustom, pass them as an argument with all hidden fields that the user must render -- TODO for renderCustom, pass them as an argument with all hidden fields that the user must render
(List ( String, FieldDefinition )) (List ( String, FieldDefinition ))
(Maybe data (Maybe data