Debug module with its own model

RailsEventStore · Mar 20, 2024 · 8a61cd9 · 8a61cd9
1 parent 72bc77b
commit 8a61cd9
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 7 deletions.
diff --git a/ruby_event_store-browser/elm/src/Main.elm b/ruby_event_store-browser/elm/src/Main.elm
@@ -57,7 +57,7 @@ type Page
     = NotFound
     | ShowEvent Page.ShowEvent.Model
     | ShowStream Page.ShowStream.Model
-    | Debug
+    | Debug Page.Debug.Model
 
 
 subscriptions : Model -> Sub Msg
@@ -216,7 +216,7 @@ navigate model location =
                             ( { model | page = NotFound }, Cmd.none )
 
                 Just (Route.Debug) ->
-                    ( { model | page = Debug }, Cmd.none )
+                    ( { model | page = Debug (Page.Debug.init flags.resVersion) }, Cmd.none )
 
                 Nothing ->
                     ( { model | page = NotFound }, Cmd.none )
@@ -270,10 +270,10 @@ viewPage page selectedTime =
             in
             ( Just title, Html.map GotShowEventMsg content )
 
-        Debug ->
+        Debug pageModel ->
             let
                 content =
-                    Page.Debug.view
+                    Page.Debug.view pageModel
             in
             ( Just "Debug", content )
 

diff --git a/ruby_event_store-browser/elm/src/Page/Debug.elm b/ruby_event_store-browser/elm/src/Page/Debug.elm
@@ -2,6 +2,12 @@ module Page.Debug exposing (..)
 
 import Html exposing (..)
 
-view: Html a
-view =
-    text "to be filled with some helpful content"
+type alias Model = { resVersion : String }
+
+init : String -> Model
+init resVersion =
+  { resVersion = resVersion }
+
+view: Model -> Html a
+view model =
+    text ("RubyEventStore version: " ++ model.resVersion)