activitystreams-aeson/Codec/ActivityStream/Schema.hs

{-# LANGUAGE TemplateHaskell #-}

module Codec.ActivityStream.Schema where

import Data.Aeson hiding (Object)
import Data.Aeson.TH
import Data.DateTime
import Data.Text (Text)

import Codec.ActivityStream.Internal
import Codec.ActivityStream.Representation

data SchemaVerb
  = Accept
  | Access
  | Acknowledge
  | Add
  | Agree
  | Append
  | Approve
  | Archive
  | Assign
  | At
  | Attach
  | Attend
  | Author
  | Authorize
  | Borrow
  | Build
  | Cancel
  | Close
  | Complete
  | Confirm
  | Consume
  | Checkin
  | Create
  | Delete
  | Deliver
  | Deny
  | Disagree
  | Dislike
  | Experience
  | Favorite
  | Find
  | FlagAsInappropriate
  | Follow
  | Give
  | Host
  | Ignore
  | Insert
  | Install
  | Interact
  | Invite
  | Join
  | Leave
  | Like
  | Listen
  | Lose
  | MakeFriend
  | Open
  | Play
  | Post
  | Present
  | Purchase
  | Qualify
  | Read
  | Receive
  | Reject
  | Remove
  | RemoveFriend
  | Replace
  | Request
  | RequestFriend
  | Resolve
  | Return
  | Retract
  | RsvpMaybe
  | RsvpNo
  | RsvpYes
  | Satisfy
  | Save
  | Schedule
  | Search
  | Sell
  | Send
  | Share
  | Sponsor
  | Start
  | StopFollowing
  | Submit
  | Tag
  | Terminate
  | Tie
  | Unfavorite
  | Unlike
  | Unsatisfy
  | Unsave
  | Unshare
  | Update
  | Use
  | Watch
  | Win
    deriving (Eq, Show, Read)

deriveJSON (commonOptsCC "") ''SchemaVerb

data SchemaObjectType
  = Alert
  | Application
  | Article
  | Audio
  | Badge
  | Binary
  | Bookmark
  | Collection
  | Comment
  | Device
  | Event
  | File
  | Game
  | Group
  | Image
  | Issue
  | Job
  | Note
  | Offer
  | Organization
  | Page
  | Person
  | Place
  | Process
  | Product
  | Question
  | Review
  | Service
  | Task
  | Video
    deriving (Eq, Show, Read)

deriveJSON (commonOptsCC "") ''SchemaObjectType

type SchemaObject = Object SchemaObjectType
type SchemaCollection = Collection SchemaObjectType

data AVObj = AVObj
  { avEmbedCode :: Maybe Text
  , avStream    :: Maybe MediaLink
  , avRest      :: SchemaObject
  } deriving (Eq, Show)

data BinaryObj = BinaryObj
  { bnCompression :: Maybe Text
  , bnData        :: Maybe Text
  , bnFileUrl     :: Maybe Text
  , bnLength      :: Maybe Int
  , bnMd5         :: Maybe Text
  , bnMimeType    :: Maybe Text
  , bnRest        :: SchemaObject
  } deriving (Eq, Show)

data EventObj = EventObj
  { evAttendedBy     :: Maybe SchemaCollection
  , evAttending      :: Maybe SchemaCollection
  , evEndTime        :: Maybe DateTime
  , evInvited        :: Maybe SchemaCollection
  , evMaybeAttending :: Maybe SchemaCollection
  , evNotAttendedBy  :: Maybe SchemaCollection
  , evNotAttending   :: Maybe SchemaCollection
  , evStartTime      :: Maybe DateTime
  , evRest           :: SchemaObject
  } deriving (Eq, Show)

data IssueObj = IssueObj
  { isTypes  :: Maybe [Text]
  , isRest   :: SchemaObject
  } deriving (Eq, Show)

data PlaceObj = PlaceObj
  { plPosition :: Maybe PlacePositionObj
  , plAddress  :: Maybe PlaceAddressObj
  , plRest     :: SchemaObject
  } deriving (Eq, Show)

data PlacePositionObj = PlacePositionObj
  { ppAltitude  :: Integer
  , ppLatitude  :: Integer
  , ppLongitude :: Integer
  } deriving (Eq, Show)

data PlaceAddressObj = PlaceAddressObj
  { paFormatted     :: Text
  , paStreetAddress :: Text
  , paLocality      :: Text
  , paRegion        :: Text
  , paPostalCode    :: Text
  , paCountry       :: Text
  } deriving (Eq, Show)

data TaskObj = TaskObj
  { tsActor         :: Maybe SchemaObject
  , tsBy            :: Maybe DateTime
  , tsObject        :: Maybe SchemaObject
  , tsPrerequisites :: Maybe [TaskObj]
  , tsRequired      :: Maybe Bool
  , tsSupersedes    :: Maybe [TaskObj]
  , tsVerb          :: Maybe SchemaVerb
  , tsRest          :: SchemaObject
  } deriving (Eq, Show)