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

Remove temporary example.

Browse Source
This commit is contained in:
Dillon Kearns 2022-08-01 10:29:14 +02:00
parent 75b487f204
commit 5446efa32d
1 changed files with 1 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
examples/smoothies/app/Route/SmoothieId_/Edit.elm
View File

@ -192,7 +192,7 @@ deleteForm =
form : Form.HtmlForm String Action Data Msg
form =
Form.init
(\name description price imageUrl media ->
(\name description price imageUrl ->
{ combine =
Validation.succeed EditInfo
|> Validation.andMap name
@ -227,24 +227,6 @@ form =
, fieldView "Description" description
, fieldView "Price" price
, fieldView "Image" imageUrl
, Form.FieldView.radio []
(\enum toRadio ->
Html.label []
[ toRadio []
, Html.text
(case enum of
Article ->
"📄 Article"
Book ->
"📕 Book"
Video ->
"📺 Video"
)
]
)
media
, Html.button []
[ Html.text
(if formState.isTransitioning then
@ -278,14 +260,6 @@ form =
|> Field.required "Required"
|> Field.withInitialValue (\{ smoothie } -> Form.Value.string smoothie.unsplashImage)
)
|> Form.field "media"
(Field.select
[ ( "article", Article )
, ( "book", Book )
, ( "video", Video )
]
(\option -> "Invalid option " ++ option)
)
|> Form.hiddenKind ( "kind", "edit" ) "Required"