mirror of
https://github.com/dillonkearns/elm-pages-v3-beta.git
synced 2024-12-24 12:22:27 +03:00
Improve some type annotations that are getting referenced incorrectly without the help of Elm.withType (see https://github.com/mdgriffith/elm-codegen/issues/48).
This commit is contained in:
parent
ef9b664cb3
commit
90ae03c271
@ -225,6 +225,7 @@ file templates =
|
|||||||
)
|
)
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
|
|> Elm.withType (Elm.Annotation.named [ "Path" ] "Path")
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
|> expose
|
|> expose
|
||||||
@ -235,6 +236,13 @@ file templates =
|
|||||||
(\route ->
|
(\route ->
|
||||||
Gen.Server.Response.call_.temporaryRedirect
|
Gen.Server.Response.call_.temporaryRedirect
|
||||||
(toString.call route)
|
(toString.call route)
|
||||||
|
|> Elm.withType
|
||||||
|
(Elm.Annotation.namedWith [ "Server", "Response" ]
|
||||||
|
"Response"
|
||||||
|
[ Elm.Annotation.var "data"
|
||||||
|
, Elm.Annotation.var "error"
|
||||||
|
]
|
||||||
|
)
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
|> expose
|
|> expose
|
||||||
|
Loading…
Reference in New Issue
Block a user