1
0
mirror of https://github.com/jhillyerd/inbucket.git synced 2025-12-17 17:47:03 +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 Data.Session as Session exposing (Session)
import Html exposing (..) import Html exposing (..)

View File

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