cosmetic: switch back to style used in all elm/ packages

Author: evancz

src/Browser/Events.elm

@@ -1,9 +1,9 @@
 effect module Browser.Events where { subscription = MySub } exposing
-    ( onAnimationFrame, onAnimationFrameDelta
-    , onKeyPress, onKeyDown, onKeyUp
-    , onClick, onMouseMove, onMouseDown, onMouseUp
-    , onResize, onVisibilityChange, Visibility(..)
-    )
+  ( onAnimationFrame, onAnimationFrameDelta
+  , onKeyPress, onKeyDown, onKeyUp
+  , onClick, onMouseMove, onMouseDown, onMouseUp
+  , onResize, onVisibilityChange, Visibility(..)
+  )
 
 {-| In JavaScript, information about the root of an HTML document is held in
 the `document` and `window` objects. This module lets you create event
@@ -61,7 +61,7 @@ sync up with the browsers natural refresh rate. This hooks into JavaScript's
 -}
 onAnimationFrame : (Time.Posix -> msg) -> Sub msg
 onAnimationFrame =
-    AM.onAnimationFrame
+  AM.onAnimationFrame
 
 
 {-| Just like `onAnimationFrame`, except message is the time in milliseconds
@@ -70,7 +70,7 @@ since the previous frame. So you should get a sequence of values all around
 -}
 onAnimationFrameDelta : (Float -> msg) -> Sub msg
 onAnimationFrameDelta =
-    AM.onAnimationFrameDelta
+  AM.onAnimationFrameDelta
 
 
 
@@ -88,7 +88,7 @@ It is more complicated than it should be.
 -}
 onKeyPress : Decode.Decoder msg -> Sub msg
 onKeyPress =
-    on Document "keypress"
+  on Document "keypress"
 
 
 {-| Subscribe to get codes whenever a key goes down. This can be useful for
@@ -103,7 +103,7 @@ It is more complicated than it should be.
 -}
 onKeyDown : Decode.Decoder msg -> Sub msg
 onKeyDown =
-    on Document "keydown"
+  on Document "keydown"
 
 
 {-| Subscribe to get codes whenever a key goes up. Often used in combination
@@ -112,7 +112,7 @@ to down and never come back up.
 -}
 onKeyUp : Decode.Decoder msg -> Sub msg
 onKeyUp =
-    on Document "keyup"
+  on Document "keyup"
 
 
 
@@ -127,21 +127,21 @@ if someone clicked out of it:
     import Json.Decode as D
 
     type Msg
-        = ClickOut
+       = ClickOut
 
     subscriptions : Model -> Sub Msg
     subscriptions model =
-        case model.dropDown of
-            Closed _ ->
-                Sub.none
+      case model.dropDown of
+        Closed _ ->
+          Sub.none
 
-            Open _ ->
-                Events.onClick (D.succeed ClickOut)
+        Open _ ->
+          Events.onClick (D.succeed ClickOut)
 
 -}
 onClick : Decode.Decoder msg -> Sub msg
 onClick =
-    on Document "click"
+  on Document "click"
 
 
 {-| Subscribe to mouse moves anywhere on screen.
@@ -158,14 +158,14 @@ subscribe when absolutely necessary.
 -}
 onMouseMove : Decode.Decoder msg -> Sub msg
 onMouseMove =
-    on Document "mousemove"
+  on Document "mousemove"
 
 
 {-| Subscribe to get mouse information whenever the mouse button goes down.
 -}
 onMouseDown : Decode.Decoder msg -> Sub msg
 onMouseDown =
-    on Document "mousedown"
+  on Document "mousedown"
 
 
 {-| Subscribe to get mouse information whenever the mouse button goes up.
@@ -174,7 +174,7 @@ to be sure keys do not appear to down and never come back up.
 -}
 onMouseUp : Decode.Decoder msg -> Sub msg
 onMouseUp =
-    on Document "mouseup"
+  on Document "mouseup"
 
 
 
@@ -193,11 +193,11 @@ this](TODO).
 -}
 onResize : (Int -> Int -> msg) -> Sub msg
 onResize func =
-    on Window "resize" <|
-        Decode.field "target" <|
-            Decode.map2 func
-                (Decode.field "innerWidth" Decode.int)
-                (Decode.field "innerHeight" Decode.int)
+  on Window "resize" <|
+    Decode.field "target" <|
+      Decode.map2 func
+        (Decode.field "innerWidth" Decode.int)
+        (Decode.field "innerHeight" Decode.int)
 
 
 {-| Subscribe to any visibility changes, like if the user switches to a
@@ -213,116 +213,106 @@ different tab or window. When the user looks away, you may want to:
 -}
 onVisibilityChange : (Visibility -> msg) -> Sub msg
 onVisibilityChange func =
-    let
-        info =
-            Elm.Kernel.Browser.visibilityInfo ()
-    in
-    on Document info.change <|
-        Decode.map (withHidden func) <|
-            Decode.field "target" <|
-                Decode.field info.hidden Decode.bool
+  let
+    info = Elm.Kernel.Browser.visibilityInfo ()
+  in
+  on Document info.change <|
+    Decode.map (withHidden func) <|
+      Decode.field "target" <|
+        Decode.field info.hidden Decode.bool
 
 
 withHidden : (Visibility -> msg) -> Bool -> msg
 withHidden func isHidden =
-    func
-        (if isHidden then
-            Hidden
-
-         else
-            Visible
-        )
+  func (if isHidden then Hidden else Visible)
 
 
 {-| Value describing whether the page is hidden or visible.
 -}
 type Visibility
-    = Visible
-    | Hidden
+  = Visible
+  | Hidden
 
 
 
 -- SUBSCRIPTIONS
 
 
 type Node
-    = Document
-    | Window
+  = Document
+  | Window
 
 
 on : Node -> String -> Decode.Decoder msg -> Sub msg
 on node name decoder =
-    subscription (MySub node name decoder)
+  subscription (MySub node name decoder)
 
 
 type MySub msg
-    = MySub Node String (Decode.Decoder msg)
+  = MySub Node String (Decode.Decoder msg)
 
 
 subMap : (a -> b) -> MySub a -> MySub b
 subMap func (MySub node name decoder) =
-    MySub node name (Decode.map func decoder)
+  MySub node name (Decode.map func decoder)
 
 
 
 -- EFFECT MANAGER
 
 
 type alias State msg =
-    { subs : List ( String, MySub msg )
-    , pids : Dict.Dict String Process.Id
-    }
+  { subs : List ( String, MySub msg )
+  , pids : Dict.Dict String Process.Id
+  }
 
 
 init : Task Never (State msg)
 init =
-    Task.succeed (State [] Dict.empty)
+  Task.succeed (State [] Dict.empty)
 
 
 type alias Event =
-    { key : String
-    , event : Decode.Value
-    }
+  { key : String
+  , event : Decode.Value
+  }
 
 
 onSelfMsg : Platform.Router msg Event -> Event -> State msg -> Task Never (State msg)
 onSelfMsg router { key, event } state =
-    let
-        toMessage ( subKey, MySub node name decoder ) =
-            if subKey == key then
-                Elm.Kernel.Browser.decodeEvent decoder event
-
-            else
-                Nothing
+  let
+    toMessage ( subKey, MySub node name decoder ) =
+      if subKey == key then
+        Elm.Kernel.Browser.decodeEvent decoder event
+      else
+        Nothing
 
-        messages =
-            List.filterMap toMessage state.subs
-    in
-    Task.sequence (List.map (Platform.sendToApp router) messages)
-        |> Task.andThen (\_ -> Task.succeed state)
+    messages = List.filterMap toMessage state.subs
+  in
+  Task.sequence (List.map (Platform.sendToApp router) messages)
+    |> Task.andThen (\_ -> Task.succeed state)
 
 
 onEffects : Platform.Router msg Event -> List (MySub msg) -> State msg -> Task Never (State msg)
 onEffects router subs state =
-    let
-        newSubs =
-            List.map addKey subs
+  let
+    newSubs = List.map addKey subs
 
-        stepLeft _ pid ( deads, lives, news ) =
-            ( pid :: deads, lives, news )
+    stepLeft _ pid (deads, lives, news) =
+      (pid :: deads, lives, news)
 
-        stepBoth key pid _ ( deads, lives, news ) =
-            ( deads, Dict.insert key pid lives, news )
+    stepBoth key pid _ (deads, lives, news) =
+      (deads, Dict.insert key pid lives, news)
 
-        stepRight key sub ( deads, lives, news ) =
-            ( deads, lives, spawn router key sub :: news )
+    stepRight key sub (deads, lives, news) =
+      (deads, lives, spawn router key sub :: news)
 
-        ( deadPids, livePids, makeNewPids ) =
-            Dict.merge stepLeft stepBoth stepRight state.pids (Dict.fromList newSubs) ( [], Dict.empty, [] )
-    in
-    Task.sequence (List.map Process.kill deadPids)
-        |> Task.andThen (\_ -> Task.sequence makeNewPids)
-        |> Task.andThen (\pids -> Task.succeed (State newSubs (Dict.union livePids (Dict.fromList pids))))
+    (deadPids, livePids, makeNewPids) =
+      Dict.merge stepLeft stepBoth stepRight state.pids (Dict.fromList newSubs) ([], Dict.empty, [])
+  in
+  Task.sequence (List.map Process.kill deadPids)
+    |> Task.andThen (\_ -> Task.sequence makeNewPids)
+    |> Task.andThen (\pids -> Task.succeed (State newSubs (Dict.union livePids (Dict.fromList pids))))
 
 
 
@@ -331,17 +321,14 @@ onEffects router subs state =
 
 addKey : MySub msg -> ( String, MySub msg )
 addKey ((MySub node name _) as sub) =
-    ( nodeToKey node ++ name, sub )
+  (nodeToKey node ++ name, sub)
 
 
 nodeToKey : Node -> String
 nodeToKey node =
-    case node of
-        Document ->
-            "d_"
-
-        Window ->
-            "w_"
+  case node of
+    Document -> "d_"
+    Window   -> "w_"
 
 
 
@@ -350,15 +337,12 @@ nodeToKey node =
 
 spawn : Platform.Router msg Event -> String -> MySub msg -> Task Never ( String, Process.Id )
 spawn router key (MySub node name _) =
-    let
-        actualNode =
-            case node of
-                Document ->
-                    Elm.Kernel.Browser.doc
-
-                Window ->
-                    Elm.Kernel.Browser.window
-    in
-    Task.map (\value -> ( key, value )) <|
-        Elm.Kernel.Browser.on actualNode name <|
-            \event -> Platform.sendToSelf router (Event key event)
+  let
+    actualNode =
+      case node of
+        Document -> Elm.Kernel.Browser.doc
+        Window -> Elm.Kernel.Browser.window
+  in
+  Task.map (\value -> ( key, value )) <|
+    Elm.Kernel.Browser.on actualNode name <|
+      \event -> Platform.sendToSelf router (Event key event)