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

Switch to search by clicking on correspondent/concerned in detail

Browse Source
This commit is contained in:
Eike Kettner
2020-11-14 12:57:38 +01:00
parent cf578a88d3
commit fe8c122968
8 changed files with 364 additions and 308 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
modules/webapp/src/main/elm/Comp/ItemDetail/Model.elm
View File

@ -4,8 +4,12 @@ module Comp.ItemDetail.Model exposing
, Msg(..)
, NotesField(..)
, SaveNameState(..)
, UpdateResult
, emptyModel
, isEditNotes
, resultModel
, resultModelCmd
, resultModelCmdSub
)
import Api.Model.BasicResult exposing (BasicResult)
@ -281,3 +285,26 @@ type SaveNameState
= Saving
| SaveSuccess
| SaveFailed
type alias UpdateResult =
{ model : Model
, cmd : Cmd Msg
, sub : Sub Msg
, linkTarget : LinkTarget
}
resultModel : Model -> UpdateResult
resultModel model =
UpdateResult model Cmd.none Sub.none Comp.LinkTarget.LinkNone
resultModelCmd : ( Model, Cmd Msg ) -> UpdateResult
resultModelCmd ( model, cmd ) =
UpdateResult model cmd Sub.none Comp.LinkTarget.LinkNone
resultModelCmdSub : ( Model, Cmd Msg, Sub Msg ) -> UpdateResult
resultModelCmdSub ( model, cmd, sub ) =
UpdateResult model cmd sub Comp.LinkTarget.LinkNone