Code no one really needed

RailsEventStore · Jan 27, 2024 · a8d4774 · a8d4774
1 parent b7b72ae
commit a8d4774
Showing 1 changed file with 13 additions and 20 deletions.
diff --git a/ruby_event_store-browser/elm/src/Main.elm b/ruby_event_store-browser/elm/src/Main.elm
@@ -189,26 +189,19 @@ fullTitle maybePageTitle =
 viewPage : Page -> ( Maybe String, Html Msg )
 viewPage page =
     case page of
-        ShowStream showStreamUIModel ->
-            viewOnePage
-                GotShowStreamMsg
-                Page.ShowStream.view
-                showStreamUIModel
-
-        ShowEvent openedEventUIModel ->
-            viewOnePage
-                GotShowEventMsg
-                Page.ShowEvent.view
-                openedEventUIModel
+        ShowStream pageModel ->
+            let
+                ( title, content ) =
+                    Page.ShowStream.view pageModel 
+            in
+            ( Just title, Html.map GotShowStreamMsg content )
+
+        ShowEvent pageModel ->
+            let
+                ( title, content ) =
+                    Page.ShowEvent.view pageModel 
+            in
+            ( Just title, Html.map GotShowEventMsg content )
 
         NotFound ->
             ( Nothing, Layout.viewNotFound )
-
-
-viewOnePage : (pageMsg -> Msg) -> (model -> ( String, Html pageMsg )) -> model -> ( Maybe String, Html Msg )
-viewOnePage pageMsgBuilder pageViewFunction pageModel =
-    let
-        ( pageTitle, pageContent ) =
-            pageViewFunction pageModel
-    in
-    ( Just pageTitle, Html.map pageMsgBuilder pageContent )