diff --git a/ruby_event_store-browser/elm/src/Main.elm b/ruby_event_store-browser/elm/src/Main.elm index 5327d43ac2..212b417f34 100644 --- a/ruby_event_store-browser/elm/src/Main.elm +++ b/ruby_event_store-browser/elm/src/Main.elm @@ -10,6 +10,7 @@ import Layout import LinkedTimezones exposing (mapLinkedTimeZone) import Page.ShowEvent import Page.ShowStream +import Page.Debug import Route import Task import Time @@ -270,7 +271,11 @@ viewPage page selectedTime = ( Just title, Html.map GotShowEventMsg content ) Debug -> - ( Just "Debug", text "to be filled with some helpful content" ) + let + content = + Page.Debug.view + in + ( Just "Debug", content ) NotFound -> ( Nothing, Layout.viewNotFound ) diff --git a/ruby_event_store-browser/elm/src/Page/Debug.elm b/ruby_event_store-browser/elm/src/Page/Debug.elm new file mode 100644 index 0000000000..2c4bd51d80 --- /dev/null +++ b/ruby_event_store-browser/elm/src/Page/Debug.elm @@ -0,0 +1,7 @@ +module Page.Debug exposing (..) + +import Html exposing (..) + +view: Html a +view = + text "to be filled with some helpful content"