dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-11-27 01:12:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fill in a todo in codegen.

Browse Source
This commit is contained in:
Dillon Kearns 2022-09-21 10:53:13 -07:00
parent 08d3195db3
commit fd1247a063
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
codegen/GenerateMain.elm
View File

@ -21,6 +21,7 @@ import Gen.Json.Decode
import Gen.Json.Encode
import Gen.List
import Gen.Maybe
import Gen.Pages.Fetcher
import Gen.Pages.Flags
import Gen.Pages.Internal.NotFoundReason
import Gen.Pages.Internal.Platform
@ -907,7 +908,7 @@ otherFile routes phaseString =
, ( "action", Elm.nothing )
, ( "routeParams", maybeRouteParams |> Maybe.withDefault (Elm.record []) )
, ( "path", justPage |> Elm.get "path" )
, ( "submit", todo )
, ( "submit", Elm.fn ( "options", Type.unit ) (Gen.Pages.Fetcher.call_.submit (decodeRouteType "ActionData" route)) )
, ( "transition", transition )
, ( "fetchers", todo )
, ( "pageFormState", pageFormState )
@ -1227,12 +1228,7 @@ otherFile routes phaseString =
mappedDecoder =
Gen.Bytes.Decode.call_.map
(Elm.val ("Data" ++ (RoutePattern.toModuleName route |> String.join "__")))
(Elm.value
{ annotation = Nothing
, importFrom = "Route" :: RoutePattern.toModuleName route
, name = "w3_decode_Data"
}
)
(decodeRouteType "Data" route)
routeVariant : String
routeVariant =
@ -1820,3 +1816,12 @@ effectMap_ mapTo =
}
)
[ mapTo ]
decodeRouteType : String -> RoutePattern -> Elm.Expression
decodeRouteType typeName route =
Elm.value
{ annotation = Nothing
, importFrom = "Route" :: RoutePattern.toModuleName route
, name = "w3_decode_" ++ typeName
}