Skip to content

Instantly share code, notes, and snippets.

@jinjor
Created May 18, 2016 12:02
Show Gist options
  • Select an option

  • Save jinjor/e66eff515cedc1397bccb29ebae93c82 to your computer and use it in GitHub Desktop.

Select an option

Save jinjor/e66eff515cedc1397bccb29ebae93c82 to your computer and use it in GitHub Desktop.
import Html exposing (Html, text, button, div, p)
import Html.Attributes exposing (style)
main =
container [ view1, view2 ]
view1 : Html msg
view1 = button [] [ text "button" ]
view2 : Html msg
view2 = p [] [ text "bla bla" ]
container : List (Html msg) -> Html msg
container children =
div
[ style [ ("padding", "20px") ] ]
children
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment