dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-12-25 21:02:33 +03:00
Code Issues Packages Projects Releases Wiki Activity

Review fixes.

Browse Source
This commit is contained in:
Dillon Kearns 2023-02-18 12:33:35 -08:00
parent ba875d789f
commit 32fa30818e
1 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
src/Scaffold/Form.elm
View File

@ -156,7 +156,7 @@ formWithFields elmCssView fields viewFn =
fieldToParam : ( String, Kind ) -> ( String, Maybe Type.Annotation )
fieldToParam ( name, kind ) =
fieldToParam ( name, _ ) =
( name, Nothing )
@ -221,35 +221,35 @@ provide :
, declarations : List Elm.Declaration
}
provide { fields, view, elmCssView } =
let
form : { declaration : Elm.Declaration, call : List Elm.Expression -> Elm.Expression, callFrom : List String -> List Elm.Expression -> Elm.Expression }
form =
formWithFields elmCssView fields view
formHandlersDeclaration :
{ declaration : Elm.Declaration
, call : List Elm.Expression -> Elm.Expression
, callFrom : List String -> List Elm.Expression -> Elm.Expression
}
formHandlersDeclaration =
-- TODO customizable formHandlers name?
Elm.Declare.function "formHandlers"
[]
(\_ ->
initCombined (Elm.val "Action") (form.call [])
|> Elm.withType
(Type.namedWith [ "Form" ]
"ServerForms"
[ Type.string
, Type.named [] "Action"
]
)
)
in
if List.isEmpty fields then
Nothing
else
let
form : { declaration : Elm.Declaration, call : List Elm.Expression -> Elm.Expression, callFrom : List String -> List Elm.Expression -> Elm.Expression }
form =
formWithFields elmCssView fields view
formHandlersDeclaration :
{ declaration : Elm.Declaration
, call : List Elm.Expression -> Elm.Expression
, callFrom : List String -> List Elm.Expression -> Elm.Expression
}
formHandlersDeclaration =
-- TODO customizable formHandlers name?
Elm.Declare.function "formHandlers"
[]
(\_ ->
initCombined (Elm.val "Action") (form.call [])
|> Elm.withType
(Type.namedWith [ "Form" ]
"ServerForms"
[ Type.string
, Type.named [] "Action"
]
)
)
in
Just
{ formHandlers = formHandlersDeclaration.call []
, form = form.call []