TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-22 02:18:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Split ItemDetail file into multiple files due to its size

Browse Source
This commit is contained in:
Eike Kettner
2020-08-05 17:57:45 +02:00
parent 17e072ef6e
commit 1662e1e2c8
6 changed files with 2604 additions and 2517 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
modules/webapp/src/main/elm/Page/ItemDetail/Data.elm
View File

@ -2,6 +2,7 @@ module Page.ItemDetail.Data exposing (Model, Msg(..), emptyModel)
import Api.Model.ItemDetail exposing (ItemDetail)
import Comp.ItemDetail
import Comp.ItemDetail.Update
import Http
@ -18,5 +19,5 @@ emptyModel =
type Msg
= Init String
| ItemDetailMsg Comp.ItemDetail.Msg
| ItemDetailMsg Comp.ItemDetail.Update.Msg
| ItemResp (Result Http.Error ItemDetail)

5
modules/webapp/src/main/elm/Page/ItemDetail/Update.elm
View File

@ -3,6 +3,7 @@ module Page.ItemDetail.Update exposing (update)
import Api
import Browser.Navigation as Nav
import Comp.ItemDetail
import Comp.ItemDetail.Update
import Data.Flags exposing (Flags)
import Page.ItemDetail.Data exposing (Model, Msg(..))
@ -13,7 +14,7 @@ update key flags next msg model =
Init id ->
let
( lm, lc, ls ) =
Comp.ItemDetail.update key flags next Comp.ItemDetail.Init model.detail
Comp.ItemDetail.update key flags next Comp.ItemDetail.Update.Init model.detail
in
( { model | detail = lm }
, Cmd.batch [ Api.itemDetail flags id ItemResp, Cmd.map ItemDetailMsg lc ]
@ -33,7 +34,7 @@ update key flags next msg model =
ItemResp (Ok item) ->
let
lmsg =
Comp.ItemDetail.SetItem item
Comp.ItemDetail.Update.SetItem item
in
update key flags next (ItemDetailMsg lmsg) model