Fix type annotation in scaffold generator.

This commit is contained in:
Dillon Kearns 2023-01-20 12:07:11 -08:00
parent 5179b569fb
commit 5289639248

View File

@ -205,25 +205,25 @@ formWithFields fields =
)
]
)
--form : Form.DoneForm String ParsedForm () (List (Html.Styled.Html (Pages.Msg.Msg Msg)))
|> Elm.withType
(Elm.Annotation.namedWith [ "Form" ]
"DoneForm"
[ Elm.Annotation.string
, Elm.Annotation.unit
, Elm.Annotation.list
(Elm.Annotation.namedWith [ "Html", "Styled" ]
"Html"
[ Elm.Annotation.namedWith
[ "Pages", "Msg" ]
"Msg"
[ Elm.Annotation.named [] "Msg" ]
]
)
]
)
)
)
|> Elm.withType
(Elm.Annotation.namedWith [ "Form" ]
"DoneForm"
[ Elm.Annotation.string
, Elm.Annotation.named [] "ParsedForm"
, Elm.Annotation.unit
, Elm.Annotation.list
(Elm.Annotation.namedWith [ "Html", "Styled" ]
"Html"
[ Elm.Annotation.namedWith
[ "Pages", "Msg" ]
"Msg"
[ Elm.Annotation.named [] "Msg" ]
]
)
]
)
)