Inline

Extracted function save a few lines but did not help with clarity.
RailsEventStore · Jan 27, 2024 · ce22672 · ce22672
1 parent a8d4774
commit ce22672
Showing 1 changed file with 14 additions and 11 deletions.
diff --git a/ruby_event_store-browser/elm/src/Main.elm b/ruby_event_store-browser/elm/src/Main.elm
@@ -89,12 +89,22 @@ update msg model =
                     )
 
         ( GotShowStreamMsg showStreamUIMsg, ShowStream showStreamModel ) ->
-            Page.ShowStream.update showStreamUIMsg showStreamModel
-                |> updateWith ShowStream GotShowStreamMsg model
+            let
+                ( subModel, subCmd ) =
+                    Page.ShowStream.update showStreamUIMsg showStreamModel
+            in
+            ( { model | page = ShowStream subModel }
+            , Cmd.map GotShowStreamMsg subCmd
+            )
 
         ( GotShowEventMsg openedEventUIMsg, ShowEvent showEventModel ) ->
-            Page.ShowEvent.update openedEventUIMsg showEventModel
-                |> updateWith ShowEvent GotShowEventMsg model
+            let
+                ( subModel, subCmd ) =
+                    Page.ShowEvent.update openedEventUIMsg showEventModel
+            in
+            ( { model | page = ShowEvent subModel }
+            , Cmd.map GotShowEventMsg subCmd
+            )
 
         ( GotLayoutMsg layoutMsg, _ ) ->
             case model.flags of
@@ -112,13 +122,6 @@ update msg model =
             ( model, Cmd.none )
 
 
-updateWith : (subModel -> Page) -> (subMsg -> Msg) -> Model -> ( subModel, Cmd subMsg ) -> ( Model, Cmd Msg )
-updateWith toPageModel toMsg model ( subModel, subCmd ) =
-    ( { model | page = toPageModel subModel }
-    , Cmd.map toMsg subCmd
-    )
-
-
 urlUpdate : Model -> Url.Url -> ( Model, Cmd Msg )
 urlUpdate model location =
     case model.flags of