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

Add workaround for missing import.

Browse Source
This commit is contained in:
Dillon Kearns 2022-09-23 10:39:43 -07:00
parent 57bfade238
commit 72f1da671a
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
codegen/GenerateMain.elm
View File

@ -978,7 +978,7 @@ otherFile routes phaseString =
|> Elm.Case.patternToBranch
(\record ->
Elm.Let.letIn
(\( updatedModel, cmd ) ->
(\() ( updatedModel, cmd ) ->
Elm.Case.maybe
(Elm.value { importFrom = [ "Shared" ], name = "template", annotation = Nothing }
|> Elm.get "onPageChange"
@ -1017,6 +1017,11 @@ otherFile routes phaseString =
)
}
)
|> Elm.Let.destructure
-- TODO there is a bug where the Browser.Navigation.Key type wasn't imported because the argument wasn't referenced.
-- Remove this hack when that bug is fixed
Elm.Pattern.ignore
navigationKey
|> Elm.Let.destructure (Elm.Pattern.tuple (Elm.Pattern.var "updatedModel") (Elm.Pattern.var "cmd"))
(init.call
(Elm.just (model |> Elm.get "global"))