Skip to content

Commit

Permalink
Refactor
Browse files Browse the repository at this point in the history
  • Loading branch information
mostlyobvious committed Jan 27, 2024
1 parent 3d12085 commit b7b72ae
Showing 1 changed file with 6 additions and 10 deletions.
16 changes: 6 additions & 10 deletions ruby_event_store-browser/elm/src/Main.elm
Original file line number Diff line number Diff line change
Expand Up @@ -165,18 +165,14 @@ view model =

Just flags ->
let
( maybePageTitle, pageContent ) =
( title, content ) =
viewPage model.page

wrappedModel =
WrappedModel model.layout model.key flags
in
{ body =
[ div []
[ Layout.view
GotLayoutMsg
(WrappedModel model.layout model.key flags)
pageContent
]
]
, title = fullTitle maybePageTitle
{ title = fullTitle title
, body = [ div [] [ Layout.view GotLayoutMsg wrappedModel content ] ]
}


Expand Down

0 comments on commit b7b72ae

Please sign in to comment.