mirror of
https://github.com/dillonkearns/elm-pages-v3-beta.git
synced 2024-12-24 04:12:09 +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
|
||||
@ -235,6 +236,13 @@ file templates =
|
||||
(\route ->
|
||||
Gen.Server.Response.call_.temporaryRedirect
|
||||
(toString.call route)
|
||||
|> Elm.withType
|
||||
(Elm.Annotation.namedWith [ "Server", "Response" ]
|
||||
"Response"
|
||||
[ Elm.Annotation.var "data"
|
||||
, Elm.Annotation.var "error"
|
||||
]
|
||||
)
|
||||
)
|
||||
)
|
||||
|> expose
|
||||
|
Loading…
Reference in New Issue
Block a user