Safe Haskell | Safe-Inferred |
---|---|
Language | GHC2021 |
Synopsis
- type NotificationId = Id QueuedNotification
- isValidNotificationId :: NotificationId -> Bool
- newtype RawNotificationId = RawNotificationId {}
- type Event = Object
- data QueuedNotification
- queuedNotification :: NotificationId -> NonEmpty Event -> QueuedNotification
- queuedNotificationId :: Lens' QueuedNotification NotificationId
- queuedNotificationPayload :: Lens' QueuedNotification (NonEmpty Event)
- data QueuedNotificationList
- queuedNotificationList :: [QueuedNotification] -> Bool -> Maybe UTCTime -> QueuedNotificationList
- queuedNotifications :: Lens' QueuedNotificationList [QueuedNotification]
- queuedHasMore :: Lens' QueuedNotificationList Bool
- queuedTime :: Lens' QueuedNotificationList (Maybe UTCTime)
- data GetNotificationsResponse
Documentation
type NotificationId = Id QueuedNotification Source #
newtype RawNotificationId Source #
Instances
QueuedNotification
data QueuedNotification Source #
Instances
data QueuedNotificationList Source #
Instances
queuedNotificationList :: [QueuedNotification] -> Bool -> Maybe UTCTime -> QueuedNotificationList Source #
data GetNotificationsResponse Source #
GetNotificationsWithStatusNotFound QueuedNotificationList | |
GetNotificationsSuccess QueuedNotificationList |
Instances
AsUnion '[Respond 404 "Notification list" QueuedNotificationList, Respond 200 "Notification list" QueuedNotificationList] GetNotificationsResponse Source # | |
Defined in Wire.API.Notification toUnion :: GetNotificationsResponse -> Union (ResponseTypes '[Respond 404 "Notification list" QueuedNotificationList, Respond 200 "Notification list" QueuedNotificationList]) Source # fromUnion :: Union (ResponseTypes '[Respond 404 "Notification list" QueuedNotificationList, Respond 200 "Notification list" QueuedNotificationList]) -> GetNotificationsResponse Source # |