diff --git a/README.md b/README.md index 02e2eb6..39b9904 100644 --- a/README.md +++ b/README.md @@ -35,19 +35,9 @@ subscriptions _ = port modelOut : Model -> Cmd msg -wrapUpdate : (Msg -> Model -> Model) -> (Msg -> Model -> (Model, Cmd Msg)) -wrapUpdate innerUpdate = - \msg model -> - let - nextModel = - innerUpdate msg model - in - (nextModel, modelOut nextModel) - - main : Program Never main = - Worker.worker + Worker.worker modelOut { model = model , update = wrapUpdate update , subscriptions = subscriptions