mirror of
https://github.com/dillonkearns/elm-pages-v3-beta.git
synced 2024-12-22 19:31:39 +03:00
Add Pages.Form module to exposed package modules.
This commit is contained in:
parent
2224d80d78
commit
d471af814f
1
elm.json
1
elm.json
@ -8,6 +8,7 @@
|
||||
"Head",
|
||||
"Head.Seo",
|
||||
"ApiRoute",
|
||||
"Pages.Form",
|
||||
"Path",
|
||||
"Pages.PageUrl",
|
||||
"FatalError",
|
||||
|
@ -1,4 +1,15 @@
|
||||
module Pages.Form exposing (FormWithServerValidations, Handler, Strategy(..), renderHtml, renderStyledHtml)
|
||||
module Pages.Form exposing
|
||||
( Strategy(..), renderHtml, renderStyledHtml
|
||||
, FormWithServerValidations, Handler
|
||||
)
|
||||
|
||||
{-|
|
||||
|
||||
@docs Strategy, renderHtml, renderStyledHtml
|
||||
|
||||
@docs FormWithServerValidations, Handler
|
||||
|
||||
-}
|
||||
|
||||
import BackendTask exposing (BackendTask)
|
||||
import Dict exposing (Dict)
|
||||
@ -13,6 +24,7 @@ import Pages.Transition
|
||||
import PagesMsg exposing (PagesMsg)
|
||||
|
||||
|
||||
{-| -}
|
||||
type alias FormWithServerValidations error combined input view =
|
||||
Form.Form
|
||||
error
|
||||
@ -28,15 +40,18 @@ type alias FormWithServerValidations error combined input view =
|
||||
input
|
||||
|
||||
|
||||
{-| -}
|
||||
type alias Handler error combined =
|
||||
Form.Handler.Handler error (BackendTask FatalError (Validation.Validation error combined Never Never))
|
||||
|
||||
|
||||
{-| -}
|
||||
type Strategy
|
||||
= Parallel
|
||||
| Serial
|
||||
|
||||
|
||||
{-| -}
|
||||
renderHtml :
|
||||
List (Html.Attribute (PagesMsg userMsg))
|
||||
-> Strategy
|
||||
@ -125,6 +140,7 @@ renderHtml attrs strategy options_ app form_ =
|
||||
attrs
|
||||
|
||||
|
||||
{-| -}
|
||||
renderStyledHtml :
|
||||
List (Html.Styled.Attribute (PagesMsg userMsg))
|
||||
-> Strategy
|
||||
|
Loading…
Reference in New Issue
Block a user