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

Update docs.

Browse Source
This commit is contained in:
Dillon Kearns 2023-05-16 11:19:17 -07:00
parent a58f8e6710
commit 1fec3d93d9
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/PagesMsg.elm
View File

@ -27,6 +27,8 @@ type alias PagesMsg userMsg =
{-|
import Form
import Pages.Form
import PagesMsg exposing (PagesMsg)
type Msg
@ -46,10 +48,14 @@ type alias PagesMsg userMsg =
[ onClick (PagesMsg.fromMsg ToggleMenu) ]
[]
-- `Form.renderHtml` gives us `Html (PagesMsg msg)`, so we don't need to wrap its Msg type
-- `Pages.Form.renderHtml` gives us `Html (PagesMsg msg)`, so we don't need to wrap its Msg type
, logoutForm
|> Form.withOnSubmit (\_ -> NewItemSubmitted)
|> Form.renderHtml "logout" [] (\_ -> Nothing) app Nothing
|> Pages.Form.renderHtml []
Pages.Form.Serial
(Form.options "logout"
|> Form.withOnSubmit (\_ -> NewItemSubmitted)
)
app
]
}