/
EventGuest.purs
52 lines (28 loc) · 1.33 KB
/
EventGuest.purs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
module Control.Google.Apps.Calendar.EventGuest (
getAdditionalGuests,
getEmail,
getGuestStatus,
getName
) where
import Prelude (Unit, unit)
import Effect (Effect)
import Data.Google.Apps.Calendar.GuestStatus as CalendarGuestStatus
import Data.Google.Apps.Calendar.EventGuest as CalendarEventGuest
foreign import getAdditionalGuestsImpl :: CalendarEventGuest.EventGuest -> Effect Int
-- | Gets the number of additional people that this guest has said are attending.
getAdditionalGuests :: CalendarEventGuest.EventGuest -> Effect Int
getAdditionalGuests p' = getAdditionalGuestsImpl p'
foreign import getEmailImpl :: CalendarEventGuest.EventGuest -> Effect String
-- | Gets the email address of the guest.
getEmail :: CalendarEventGuest.EventGuest -> Effect String
getEmail p' = getEmailImpl p'
foreign import getGuestStatusImpl :: CalendarEventGuest.EventGuest -> Effect CalendarGuestStatus.GuestStatusForeign
-- Some type is not directly accessible in the runtime.
-- TODO: Implement this
-- getGuestStatus :: CalendarEventGuest.EventGuest -> Effect CalendarGuestStatus.GuestStatus
getGuestStatus :: Unit
getGuestStatus = unit
foreign import getNameImpl :: CalendarEventGuest.EventGuest -> Effect String
-- | Gets the name of the guest.
getName :: CalendarEventGuest.EventGuest -> Effect String
getName p' = getNameImpl p'