Aug 25, 2017 · Aug 25, 2017
diff --git a/src/examples/checkboxes.elm b/src/examples/checkboxes.elm
 import Html exposing (Html, beginnerProgram, fieldset, input, label, text)
 import Html.Attributes exposing (style, type_)
 import Html.Attributes exposing (style, type_, checked)
 import Html.Events exposing (onClick)


 view : Model -> Html Msg
 view model =
  fieldset []
    [ checkbox ToggleNotifications "Email Notifications"
    , checkbox ToggleAutoplay "Video Autoplay"
    , checkbox ToggleLocation "Use Location"
    [ checkboxmodel.notificationsToggleNotifications "Email Notifications"
    , checkboxmodel.autoplayToggleAutoplay "Video Autoplay"
    , checkboxmodel.locationToggleLocation "Use Location"
    ]


 checkbox : msg -> String -> Html msg
 checkbox msg name =
 checkbox :isChecked ->msg -> String -> Html msg
 checkboxisCheckedmsg name =
  label
    [ style [("padding", "20px")]
    ]
    [ input [ type_ "checkbox", onClick msg ] []
    [ input [ type_ "checkbox", onClick msg, checked isChecked ] []
    , text name
    ]
Original file line number	Diff line number	Diff line change
		@@ -1,5 +1,5 @@
		import Html exposing (Html, beginnerProgram, fieldset, input, label, text)
		import Html.Attributes exposing (style, type_)
		import Html.Attributes exposing (style, type_, checked)
		import Html.Events exposing (onClick)


Expand DownExpand Up		@@ -54,17 +54,17 @@ update msg model =
		view : Model -> Html Msg
		view model =
		fieldset []
		[ checkbox ToggleNotifications "Email Notifications"
		, checkbox ToggleAutoplay "Video Autoplay"
		, checkbox ToggleLocation "Use Location"
		[ checkboxmodel.notificationsToggleNotifications "Email Notifications"
		, checkboxmodel.autoplayToggleAutoplay "Video Autoplay"
		, checkboxmodel.locationToggleLocation "Use Location"
		]


		checkbox : msg -> String -> Html msg
		checkbox msg name =
		checkbox :isChecked ->msg -> String -> Html msg
		checkboxisCheckedmsg name =
		label
		[ style [("padding", "20px")]
		]
		[ input [ type_ "checkbox", onClick msg ] []
		[ input [ type_ "checkbox", onClick msg, checked isChecked ] []
		, text name
		]