use normal style

Author: evancz

examples/01-button.elm

@@ -3,22 +3,34 @@ import Html exposing (Html, button, div, text)
 import Html.Events exposing (onClick)
 
 
+
+-- MAIN
+
+
 main =
   Browser.sandbox { init = init, update = update, view = view }
 
 
+
 -- MODEL
 
+
 type alias Model = Int
 
+
 init : Model
 init =
   0
 
 
+
 -- UPDATE
 
-type Msg = Increment | Decrement
+
+type Msg
+  = Increment
+  | Decrement
+
 
 update : Msg -> Model -> Model
 update msg model =
@@ -30,12 +42,14 @@ update msg model =
       model - 1
 
 
+
 -- VIEW
 
+
 view : Model -> Html Msg
 view model =
   div []
     [ button [ onClick Decrement ] [ text "-" ]
     , div [] [ text (String.fromInt model) ]
     , button [ onClick Increment ] [ text "+" ]
-    ]
+    ]