An example of how to have a constructor and type with the same name in Elm

SameTypeAndConstructor.elm

-- An example of how to have a constructor and type with the same name
-- https://github.com/elm-lang/core/blob/3833b53f57f21df7ce7d3cf6664c61ee5671df4b/src/Task.elm#L43-L52
import Html exposing (Html, button, div, text)
import Html.App as Html
import Html.Attributes exposing (style)
import Html.Events exposing (onClick)

main =
  Html.beginnerProgram { model = initialCount, view = view, update = update }

-- MODEL
type Model = Model String Int

initialCount : Model
initialCount =
  Model "Initial value of" 0

-- UPDATE
type Msg = Increment | Decrement

update : Msg -> Model -> Model
update msg (Model desc count) =
  case msg of
    Increment -> Model "Incremented to" (count + 1)
    Decrement -> Model "Decremented to" (count - 1)

-- VIEW
inline    = ("display",   "inline")
spaceLeft = ("margin",    "0.5em")
largeText = ("font-size", "1.5em")

view : Model -> Html Msg
view (Model desc count) =
  div [style [("margin", "1em")]]
    [ div
        [ style [largeText] ]
        [ text <| desc ++ " " ++ (toString count) ]
    , button
        [ onClick Decrement
        , style [ inline, largeText ]
        ]
        [ text "-" ]
    , button
        [ onClick Increment
        , style [ inline, largeText, spaceLeft ]
        ]
        [ text "+" ]
    ]