Error when trying to use union type as message

[layflags]

I think it has to do with msg being the unit type.

type alias Model_ =
    { array : Array Int
    }


type Msg_
    = Blah


main : Program () Model_ Msg_
main =
    Monitor.sandbox
        { init = { array = Array.fromList [ 5 ] }
        , view = \_ -> Html.button [ Html.Events.onClick Blah ] [ Html.text "produces an error in console" ]
        , update = \_ model -> model
        }

This code works fine, but if I replace Msg_ with () then I get the n is null exception.

Originally posted by @MartinSStewart in #9 (comment)