dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-12-26 13:21:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

Rename function.

Browse Source
This commit is contained in:
Dillon Kearns 2019-08-05 16:01:56 -07:00
parent 9ec5923ea1
commit ad41434ae1
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/docs/src/Main.elm
View File

@ -94,7 +94,7 @@ view : Model -> Page (Metadata Msg) (Element Msg) -> { title : String, body : Ht
view model page =
let
{ title, body } =
pageOrPostView model page
pageView model page
in
{ title = title
, body =
@ -108,8 +108,8 @@ view model page =
}
pageOrPostView : Model -> Page (Metadata Msg) (Element Msg) -> { title : String, body : Element Msg }
pageOrPostView model page =
pageView : Model -> Page (Metadata Msg) (Element Msg) -> { title : String, body : Element Msg }
pageView model page =
case page.metadata of
Metadata.Page metadata ->
{ title = metadata.title

6
site/src/Main.elm
View File

@ -97,7 +97,7 @@ view : Model -> Page (Metadata Msg) (Element Msg) -> { title : String, body : Ht
view model page =
let
{ title, body } =
pageOrPostView model page
pageView model page
in
{ title = title
, body =
@ -108,8 +108,8 @@ view model page =
}
pageOrPostView : Model -> Page (Metadata Msg) (Element Msg) -> { title : String, body : Element Msg }
pageOrPostView model page =
pageView : Model -> Page (Metadata Msg) (Element Msg) -> { title : String, body : Element Msg }
pageView model page =
case page.metadata of
Metadata.Page metadata ->
{ title = metadata.title