Format .elm files

Author: hmsk

example/src/Application.elm

@@ -1,8 +1,7 @@
 module Application exposing (..)
 
 import Browser
-import Html exposing (Html, div, h1, img, text)
-import Html.Attributes exposing (src)
+import Html exposing (Html, div, h1, text)
 
 
 
@@ -27,7 +26,7 @@ type Msg
 
 
 update : Msg -> Model -> ( Model, Cmd Msg )
-update msg model =
+update _ model =
     ( model, Cmd.none )
 
 
@@ -36,7 +35,7 @@ update msg model =
 
 
 view : Model -> Html Msg
-view model =
+view _ =
     div []
         [ h1 [] [ text "Your Elm App is working!" ]
         ]

example/src/Hello.elm

@@ -1,41 +1,50 @@
 module Hello exposing (main)
 
 import Browser
-import Html exposing (Html, text, div)
+import Html exposing (Html, div, text)
 import Html.Events exposing (onClick)
 import Message exposing (importableMessage)
 
+
 main : Program String Model Msg
-main = Browser.element
-    { init = init
-    , update = update
-    , view = view
-    , subscriptions = subscriptions
-    }
+main =
+    Browser.element
+        { init = init
+        , update = update
+        , view = view
+        , subscriptions = subscriptions
+        }
+
 
 type alias Model =
-    { message: String
+    { message : String
     }
 
-init : String -> (Model, Cmd Msg)
-init flags = ({ message = "Hi, I'm compiled through vite-plugin-elm: " ++ flags }, Cmd.none)
+
+init : String -> ( Model, Cmd Msg )
+init flags =
+    ( { message = "Hi, I'm compiled through vite-plugin-elm: " ++ flags }, Cmd.none )
+
 
 type Msg
-  = Name String
+    = Name String
+
 
-update : Msg -> Model -> (Model, Cmd Msg)
+update : Msg -> Model -> ( Model, Cmd Msg )
 update msg model =
     case msg of
         Name name ->
-            ({ model | message = name}, Cmd.none)
+            ( { model | message = name }, Cmd.none )
+
 
 view : Model -> Html Msg
 view model =
     div []
-    [ div [onClick (Name "Woooo")] [text model.message]
-    , div [] [text importableMessage]
-    ]
+        [ div [ onClick (Name "Woooo") ] [ text model.message ]
+        , div [] [ text importableMessage ]
+        ]
+
 
 subscriptions : Model -> Sub Msg
 subscriptions _ =
-  Sub.none
+    Sub.none

example/src/Message.elm

@@ -1,4 +1,6 @@
-module Message exposing(importableMessage)
+module Message exposing (importableMessage)
+
 
 importableMessage : String
-importableMessage = "I'm from a dependency!"
+importableMessage =
+    "I'm from a dependency!"