Add debug url to the browser layout

RailsEventStore · Mar 21, 2024 · c42c546 · c42c546
1 parent de70c3a
commit c42c546
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/ruby_event_store-browser/elm/src/Layout.elm b/ruby_event_store-browser/elm/src/Layout.elm
@@ -245,6 +245,12 @@ browserFooter { flags, time } =
                 , class "ml-4"
                 ]
                 [ text "Support" ]
+            , spacer
+            , a
+                [ href (Route.debugUrl flags.rootUrl)
+                , class "ml-4"
+                ]
+                [ text "Debug" ]
             ]
         , div
             [ class "text-gray-500 text-sm flex item-center gap-2" ]

diff --git a/ruby_event_store-browser/elm/src/Route.elm b/ruby_event_store-browser/elm/src/Route.elm
@@ -1,4 +1,4 @@
-module Route exposing (Route(..), buildUrl, decodeLocation, eventUrl, paginatedStreamUrl, streamUrl)
+module Route exposing (Route(..), buildUrl, decodeLocation, eventUrl, paginatedStreamUrl, streamUrl, debugUrl)
 
 import Maybe.Extra
 import Pagination
@@ -54,6 +54,9 @@ eventUrl : Url.Url -> String -> String
 eventUrl baseUrl eventId =
     buildUrl baseUrl [ "events", Url.percentEncode eventId ] []
 
+debugUrl : Url.Url -> String
+debugUrl baseUrl =
+    buildUrl baseUrl [ "debug" ] []
 
 pathSegments : Url.Url -> List String
 pathSegments baseUrl =