issue subtyping elm msgs

Lib.SubMsg.elm

module Lib.SubMsg exposing (..)

type SubMsg
  = SubMsgA
  | SubMsgB

Lib.SubUpdate.elm

module Lib.SubUpdate exposing (..)
import Msg exposing (Msg(SubMsg))
import Lib.SubMsg exposing (..)

subUpdate : SubMsg -> Model -> (Model, Cmd Msg)
subUpdate msg model =
  case msg of
    SubMsgA ->
      ...
    SubMsgB ->
      ...

Msg.elm

module Msg exposing (..)

import Lib.SubMsg exposing (SubMsg)

type Msg
...
| SubMsg Submsg

Update.elm

module Update exposing (..)

import Msg exposing (Msg(..))
import Lib.SubUpdate exposing (subUpdate)

update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
  case msg of
    ...
    SubMsg msg_ ->
      subUpdate msg_ model

View.elm

module View exposing (..)

import Msg exposing (Msg(SubMsg))
import Lib.SubMsg exposing (SubMsg(SubMsgA, SubMsgB))
import Html exposing (..)

view: Model -> Html Msg
view model =
  Html.div [ onClick SubMsgA ] [...]
  {- Errors:
  expecting:
    List (Html Msg)
  but it is:
    List (Html SubMsg)
  -}
  
  {-
  Note: it works if you wrap it with a function like `cast` below.
  Is there a better way/shorthand to do this?
  -}
  
  
cast : (a -> SubMsg) -> a -> Msg
cast producer msg =
    producer msg
        |> SubMsg