1
0
mirror of https://github.com/jhillyerd/inbucket.git synced 2025-12-17 09:37:02 +00:00

ui: rename Page -> Layout

This commit is contained in:
James Hillyerd
2018-12-31 16:28:22 -08:00
parent c977ded5ba
commit fac44b7753
2 changed files with 7 additions and 7 deletions

View File

@@ -1,4 +1,4 @@
module Views.Page exposing (ActivePage(..), frame)
module Layout exposing (ActivePage(..), frame)
import Data.Session as Session exposing (Session)
import Html exposing (..)

View File

@@ -6,6 +6,7 @@ import Data.AppConfig as AppConfig exposing (AppConfig)
import Data.Session as Session exposing (Session)
import Html exposing (..)
import Json.Decode as D exposing (Value)
import Layout exposing (ActivePage(..), frame)
import Page.Home as Home
import Page.Mailbox as Mailbox
import Page.Monitor as Monitor
@@ -15,7 +16,6 @@ import Route exposing (Route)
import Task
import Time
import Url exposing (Url)
import Views.Page as Page exposing (ActivePage(..), frame)
@@ -391,7 +391,7 @@ view model =
-> Document Msg
framePage page toMsg { title, modal, content } =
Document title
[ Page.frame
[ Layout.frame
controls
session
page
@@ -401,16 +401,16 @@ view model =
in
case model.page of
Home subModel ->
framePage Page.Other HomeMsg (Home.view subModel)
framePage Layout.Other HomeMsg (Home.view subModel)
Mailbox subModel ->
framePage Page.Mailbox MailboxMsg (Mailbox.view subModel)
framePage Layout.Mailbox MailboxMsg (Mailbox.view subModel)
Monitor subModel ->
framePage Page.Monitor MonitorMsg (Monitor.view subModel)
framePage Layout.Monitor MonitorMsg (Monitor.view subModel)
Status subModel ->
framePage Page.Status StatusMsg (Status.view subModel)
framePage Layout.Status StatusMsg (Status.view subModel)