mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-06-22 18:38:26 +00:00
Add better input for calendar events
This commit is contained in:
@ -1,6 +1,7 @@
|
||||
module Api exposing
|
||||
( cancelJob
|
||||
, changePassword
|
||||
, checkCalEvent
|
||||
, createMailSettings
|
||||
, deleteEquip
|
||||
, deleteItem
|
||||
@ -65,6 +66,8 @@ module Api exposing
|
||||
import Api.Model.AttachmentMeta exposing (AttachmentMeta)
|
||||
import Api.Model.AuthResult exposing (AuthResult)
|
||||
import Api.Model.BasicResult exposing (BasicResult)
|
||||
import Api.Model.CalEventCheck exposing (CalEventCheck)
|
||||
import Api.Model.CalEventCheckResult exposing (CalEventCheckResult)
|
||||
import Api.Model.Collective exposing (Collective)
|
||||
import Api.Model.CollectiveSettings exposing (CollectiveSettings)
|
||||
import Api.Model.ContactList exposing (ContactList)
|
||||
@ -114,6 +117,24 @@ import Util.Http as Http2
|
||||
|
||||
|
||||
|
||||
--- CalEvent
|
||||
|
||||
|
||||
checkCalEvent :
|
||||
Flags
|
||||
-> CalEventCheck
|
||||
-> (Result Http.Error CalEventCheckResult -> msg)
|
||||
-> Cmd msg
|
||||
checkCalEvent flags input receive =
|
||||
Http2.authPost
|
||||
{ url = flags.config.baseUrl ++ "/api/v1/sec/calevent/check"
|
||||
, account = getAccount flags
|
||||
, body = Http.jsonBody (Api.Model.CalEventCheck.encode input)
|
||||
, expect = Http.expectJson receive Api.Model.CalEventCheckResult.decoder
|
||||
}
|
||||
|
||||
|
||||
|
||||
--- Attachment Metadata
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user