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

Fix argument order and type for route scaffold helper.

Browse Source
This commit is contained in:
Dillon Kearns 2023-03-04 07:29:51 -08:00
parent 792389ea08
commit 2c3665c70f
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/Scaffold/Route.elm
View File

@ -551,7 +551,18 @@ userFunction moduleName definitions =
( "shared"
, Just (Elm.Annotation.named [ "Shared" ] "Model")
)
(definitions.view Elm.unit)
(\app shared ->
definitions.view app shared Elm.unit
|> Elm.withType
(Elm.Annotation.namedWith [ "View" ]
"View"
[ Elm.Annotation.namedWith [ "PagesMsg" ]
"PagesMsg"
[ localType "Msg"
]
]
)
)
in
{ declaration = viewDeclaration.declaration
, call = \app shared _ -> viewDeclaration.call app shared
@ -769,7 +780,7 @@ userFunction moduleName definitions =
Nothing ->
buildNoState_
{ view = viewFn.call Elm.unit
{ view = \app shared -> viewFn.call app shared Elm.unit
}
>> Elm.withType
(Elm.Annotation.namedWith [ "RouteBuilder" ]
@ -1104,7 +1115,7 @@ buildWithLocalState_ buildWithLocalStateArg buildWithLocalStateArg0 =
[ Elm.Annotation.namedWith
[ "PagesMsg" ]
"PagesMsg"
[ Elm.Annotation.var "msg" ]
[ Elm.Annotation.named [] "Msg" ]
]
)
)
@ -1304,7 +1315,7 @@ buildNoState_ buildNoStateArg buildNoStateArg0 =
[ Elm.Annotation.namedWith
[ "PagesMsg" ]
"PagesMsg"
[ Elm.Annotation.unit ]
[ Elm.Annotation.named [] "Msg" ]
]
)
)