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

10
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,6 +221,10 @@ provide :
, declarations : List Elm.Declaration
}
provide { fields, view, elmCssView } =
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 =
@ -246,10 +250,6 @@ provide { fields, view, elmCssView } =
)
)
in
if List.isEmpty fields then
Nothing
else
Just
{ formHandlers = formHandlersDeclaration.call []
, form = form.call []