I might need more code to understand what's going on, but I'd do something
like this:
type Msg = SuccessfulLogin UserId | ActiveCmd Active.Msg | ...
update : Msg -> Model -> (Model, Cmd Msg
update msg model =
case msg of
SuccessfulLogin userId ->
let
(activeModel, activeCmd) = Active.init userId
in
(Active activeModel, Cmd.map ActiveCmd activeCmd)
ActiveCmd activeMsg ->
-- handle sending the active model its message if present
--
You received this message because you are subscribed to the Google Groups "Elm
Discuss" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
