dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-12-26 13:21:42 +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 : ( String, Kind ) -> ( String, Maybe Type.Annotation )
fieldToParam ( name, kind ) = fieldToParam ( name, _ ) =
( name, Nothing ) ( name, Nothing )
@ -221,6 +221,10 @@ provide :
, declarations : List Elm.Declaration , declarations : List Elm.Declaration
} }
provide { fields, view, elmCssView } = provide { fields, view, elmCssView } =
if List.isEmpty fields then
Nothing
else
let let
form : { declaration : Elm.Declaration, call : List Elm.Expression -> Elm.Expression, callFrom : List String -> List Elm.Expression -> Elm.Expression } form : { declaration : Elm.Declaration, call : List Elm.Expression -> Elm.Expression, callFrom : List String -> List Elm.Expression -> Elm.Expression }
form = form =
@ -246,10 +250,6 @@ provide { fields, view, elmCssView } =
) )
) )
in in
if List.isEmpty fields then
Nothing
else
Just Just
{ formHandlers = formHandlersDeclaration.call [] { formHandlers = formHandlersDeclaration.call []
, form = form.call [] , form = form.call []