mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-06-22 02:18:26 +00:00
831cd8b655
Features: - Upload PDF files let them analyze - Manage meta data and items - See processing in webapp
28 lines
844 B
Elm
28 lines
844 B
Elm
module Page.NewInvite.Update exposing (update)
|
|
|
|
import Api
|
|
import Data.Flags exposing (Flags)
|
|
import Page.NewInvite.Data exposing (..)
|
|
import Api.Model.GenInvite exposing (GenInvite)
|
|
import Api.Model.InviteResult
|
|
import Util.Http
|
|
|
|
update: Flags -> Msg -> Model -> (Model, Cmd Msg)
|
|
update flags msg model =
|
|
case msg of
|
|
SetPassword str ->
|
|
({model|password = str}, Cmd.none)
|
|
|
|
Reset ->
|
|
(emptyModel, Cmd.none)
|
|
|
|
GenerateInvite ->
|
|
(model, Api.newInvite flags (GenInvite model.password) InviteResp)
|
|
|
|
InviteResp (Ok res) ->
|
|
if res.success then ({model | result = (Success res)}, Cmd.none)
|
|
else ({model | result = (Failed res.message)}, Cmd.none)
|
|
|
|
InviteResp (Err err) ->
|
|
({model|result = Failed (Util.Http.errorToString err)}, Cmd.none)
|