import Action exposing (Action(..)) 
import Action.Todo 
import Action.Form 

updateForm : Action.Form.Action -> Form -> Form 
updateForm action model = 
case action of 
Action.Form.SetDescription description -> 
{ model | description = description } 

Action.Form.SetTitle title -> 
{ model | title = title } 

update : Action -> Model -> Model 
update action model = 
case action of 
Action.Form formAction -> 
{ model | form = updateForm formAction model.form }

MISSING PATTERNS - This `case` does not have branches for all possibilities:

51|#>#    case action of
52|#>#        Action.Form formAction ->
53|#>#            { model | form = updateForm formAction model.form }

Missing possibilities include:

    #Todo _#

I would have to crash if I saw one of those. Add branches for them!