-- Hoogle documentation, generated by Haddock
-- See Hoogle, http://www.haskell.org/hoogle/
-- | The ChatWork API in Haskell
--
-- See README at https://github.com/matsubara0507/chatwork#readme
@package chatwork
@version 0.1.2.0
module ChatWork.Utils
-- | Helper function that use custamized Manager
getHttpResponse' :: (HttpResponse a, MonadHttp m) => Proxy a -> Request -> Manager -> m a
fixEmptyStringManager :: IO Manager
-- | if response is no contents, replace "[]". aeson return parse error
-- when response is no content response
fixEmptyString :: Response BodyReader -> IO (Response BodyReader)
-- | if want to use Delete HTTP methos with request param, use this type.
-- ref :
-- https://hackage.haskell.org/package/req-0.3.0/docs/Network-HTTP-Req.html#t:DELETE
data DELETE2
DELETE2 :: DELETE2
-- | for resolve ambiguous type
strLength :: String -> Int
instance Network.HTTP.Req.HttpMethod ChatWork.Utils.DELETE2
module ChatWork.Types.Me
data Me
Me :: Int -> Int -> Text -> Text -> Int -> Text -> Text -> Text -> Text -> Text -> Text -> Text -> Text -> Text -> Text -> Text -> Text -> Text -> Me
[meToAccountId] :: Me -> Int
[meToRoomId] :: Me -> Int
[meToName] :: Me -> Text
[meToChatworkId] :: Me -> Text
[meToOrganizationId] :: Me -> Int
[meToOrganizationName] :: Me -> Text
[meToDepartment] :: Me -> Text
[meToTitle] :: Me -> Text
[meToUrl] :: Me -> Text
[meToIntroduction] :: Me -> Text
[meToMail] :: Me -> Text
[meToTelOrganization] :: Me -> Text
[meToTelExtension] :: Me -> Text
[meToTelMobile] :: Me -> Text
[meToSkype] :: Me -> Text
[meToFacebook] :: Me -> Text
[meToTwitter] :: Me -> Text
[meToAvatarImageUrl] :: Me -> Text
instance GHC.Generics.Generic ChatWork.Types.Me.Me
instance GHC.Show.Show ChatWork.Types.Me.Me
instance GHC.Classes.Eq ChatWork.Types.Me.Me
instance Data.Aeson.Types.ToJSON.ToJSON ChatWork.Types.Me.Me
instance Data.Aeson.Types.FromJSON.FromJSON ChatWork.Types.Me.Me
module ChatWork.Types.IncomingRequests
type IncomingRequests = [IncomingRequest]
data IncomingRequest
IncomingRequest :: Int -> Int -> Text -> Text -> Text -> Int -> Text -> Text -> Text -> IncomingRequest
[incomingRequestToRequestId] :: IncomingRequest -> Int
[incomingRequestToAccountId] :: IncomingRequest -> Int
[incomingRequestToMessage] :: IncomingRequest -> Text
[incomingRequestToName] :: IncomingRequest -> Text
[incomingRequestToChatworkId] :: IncomingRequest -> Text
[incomingRequestToOrganizationId] :: IncomingRequest -> Int
[incomingRequestToOrganizationName] :: IncomingRequest -> Text
[incomingRequestToDepartment] :: IncomingRequest -> Text
[incomingRequestToAvatarImageUrl] :: IncomingRequest -> Text
data AcceptedIncomingRequest
AcceptedIncomingRequest :: Int -> Int -> Text -> Text -> Int -> Text -> Text -> Text -> AcceptedIncomingRequest
[acceptedIncomingRequestToAccountId] :: AcceptedIncomingRequest -> Int
[acceptedIncomingRequestToRoomId] :: AcceptedIncomingRequest -> Int
[acceptedIncomingRequestToName] :: AcceptedIncomingRequest -> Text
[acceptedIncomingRequestToChatworkId] :: AcceptedIncomingRequest -> Text
[acceptedIncomingRequestToOrganizationId] :: AcceptedIncomingRequest -> Int
[acceptedIncomingRequestToOrganizationName] :: AcceptedIncomingRequest -> Text
[acceptedIncomingRequestToDepartment] :: AcceptedIncomingRequest -> Text
[acceptedIncomingRequestToAvatarImageUrl] :: AcceptedIncomingRequest -> Text
instance GHC.Generics.Generic ChatWork.Types.IncomingRequests.AcceptedIncomingRequest
instance GHC.Show.Show ChatWork.Types.IncomingRequests.AcceptedIncomingRequest
instance GHC.Classes.Eq ChatWork.Types.IncomingRequests.AcceptedIncomingRequest
instance GHC.Generics.Generic ChatWork.Types.IncomingRequests.IncomingRequest
instance GHC.Show.Show ChatWork.Types.IncomingRequests.IncomingRequest
instance GHC.Classes.Eq ChatWork.Types.IncomingRequests.IncomingRequest
instance Data.Aeson.Types.ToJSON.ToJSON ChatWork.Types.IncomingRequests.IncomingRequest
instance Data.Aeson.Types.FromJSON.FromJSON ChatWork.Types.IncomingRequests.IncomingRequest
instance Data.Aeson.Types.ToJSON.ToJSON ChatWork.Types.IncomingRequests.AcceptedIncomingRequest
instance Data.Aeson.Types.FromJSON.FromJSON ChatWork.Types.IncomingRequests.AcceptedIncomingRequest
module ChatWork.Types.Error
-- | when error, chatwork is response: { "errors": ["Invalid API token"] }
--
-- see : http://developer.chatwork.com/ja/endpoints.html
newtype ChatWorkErrors
ChatWorkErrors :: [Text] -> ChatWorkErrors
[getErrors] :: ChatWorkErrors -> [Text]
instance GHC.Generics.Generic ChatWork.Types.Error.ChatWorkErrors
instance GHC.Show.Show ChatWork.Types.Error.ChatWorkErrors
instance GHC.Classes.Eq ChatWork.Types.Error.ChatWorkErrors
instance Data.Aeson.Types.ToJSON.ToJSON ChatWork.Types.Error.ChatWorkErrors
instance Data.Aeson.Types.FromJSON.FromJSON ChatWork.Types.Error.ChatWorkErrors
module ChatWork.Types.Contacts
type Contacts = [Contact]
data Contact
Contact :: Int -> Int -> Text -> Text -> Int -> Text -> Text -> Text -> Contact
[contactToAccountId] :: Contact -> Int
[contactToRoomId] :: Contact -> Int
[contactToName] :: Contact -> Text
[contactToChatworkId] :: Contact -> Text
[contactToOrganizationId] :: Contact -> Int
[contactToOrganizationName] :: Contact -> Text
[contactToDepartment] :: Contact -> Text
[contactToAvatarImageUrl] :: Contact -> Text
instance GHC.Generics.Generic ChatWork.Types.Contacts.Contact
instance GHC.Show.Show ChatWork.Types.Contacts.Contact
instance GHC.Classes.Eq ChatWork.Types.Contacts.Contact
instance Data.Aeson.Types.ToJSON.ToJSON ChatWork.Types.Contacts.Contact
instance Data.Aeson.Types.FromJSON.FromJSON ChatWork.Types.Contacts.Contact
module ChatWork.Types.Base
data Room
Room :: Int -> Text -> Text -> Room
[roomToRoomId] :: Room -> Int
[roomToName] :: Room -> Text
[roomToIconPath] :: Room -> Text
data Account
Account :: Int -> Text -> Text -> Account
[accountToAccountId] :: Account -> Int
[accountToName] :: Account -> Text
[accountToAvatarImageUrl] :: Account -> Text
-- | use create new room see :
-- http://developer.chatwork.com/ja/endpoint_rooms.html#POST-rooms
data IconPreset
Group :: IconPreset
Check :: IconPreset
Document :: IconPreset
Meeting :: IconPreset
Event :: IconPreset
Project :: IconPreset
Business :: IconPreset
Study :: IconPreset
Security :: IconPreset
Star :: IconPreset
Idea :: IconPreset
Heart :: IconPreset
Magcup :: IconPreset
Beer :: IconPreset
Music :: IconPreset
Sports :: IconPreset
Travel :: IconPreset
-- | use get tasks on room see:
-- http://developer.chatwork.com/ja/endpoint_rooms.html#GET-rooms-room_id-tasks
data TaskStatus
Open :: TaskStatus
Done :: TaskStatus
-- | use get files on room see:
-- http://developer.chatwork.com/ja/endpoint_rooms.html#GET-rooms-room_id-files
type AccountId = Int
instance GHC.Classes.Eq ChatWork.Types.Base.TaskStatus
instance GHC.Enum.Enum ChatWork.Types.Base.TaskStatus
instance GHC.Enum.Bounded ChatWork.Types.Base.TaskStatus
instance GHC.Classes.Eq ChatWork.Types.Base.IconPreset
instance GHC.Enum.Enum ChatWork.Types.Base.IconPreset
instance GHC.Enum.Bounded ChatWork.Types.Base.IconPreset
instance GHC.Generics.Generic ChatWork.Types.Base.Account
instance GHC.Show.Show ChatWork.Types.Base.Account
instance GHC.Classes.Eq ChatWork.Types.Base.Account
instance GHC.Generics.Generic ChatWork.Types.Base.Room
instance GHC.Show.Show ChatWork.Types.Base.Room
instance GHC.Classes.Eq ChatWork.Types.Base.Room
instance Data.Aeson.Types.ToJSON.ToJSON ChatWork.Types.Base.Room
instance Data.Aeson.Types.FromJSON.FromJSON ChatWork.Types.Base.Room
instance Data.Aeson.Types.ToJSON.ToJSON ChatWork.Types.Base.Account
instance Data.Aeson.Types.FromJSON.FromJSON ChatWork.Types.Base.Account
instance GHC.Show.Show ChatWork.Types.Base.IconPreset
instance Web.Internal.HttpApiData.ToHttpApiData ChatWork.Types.Base.IconPreset
instance Web.Internal.HttpApiData.FromHttpApiData ChatWork.Types.Base.IconPreset
instance GHC.Show.Show ChatWork.Types.Base.TaskStatus
instance Web.Internal.HttpApiData.ToHttpApiData ChatWork.Types.Base.TaskStatus
instance Web.Internal.HttpApiData.FromHttpApiData ChatWork.Types.Base.TaskStatus
instance Web.Internal.HttpApiData.FromHttpApiData a => Web.Internal.HttpApiData.FromHttpApiData [a]
module ChatWork.Types.My
data MyStatus
MyStatus :: Int -> Int -> Int -> Int -> Int -> Int -> MyStatus
[myStatusToUnreadRoomNum] :: MyStatus -> Int
[myStatusToMentionRoomNum] :: MyStatus -> Int
[myStatusToMytaskRoomNum] :: MyStatus -> Int
[myStatusToUnreadNum] :: MyStatus -> Int
[myStatusToMentionNum] :: MyStatus -> Int
[myStatusToMytaskNum] :: MyStatus -> Int
type MyTasks = [MyTask]
data MyTask
MyTask :: Int -> Room -> Account -> Text -> Text -> Int -> Text -> MyTask
[myTaskToTaskId] :: MyTask -> Int
[myTaskToRoom] :: MyTask -> Room
[myTaskToAssignedByAccount] :: MyTask -> Account
[myTaskToMessageId] :: MyTask -> Text
[myTaskToBody] :: MyTask -> Text
[myTaskToLimitTime] :: MyTask -> Int
[myTaskToStatus] :: MyTask -> Text
-- | see:
-- http://developer.chatwork.com/ja/endpoint_my.html#GET-my-tasks
data GetMyTasksParams
GetMyTasksParams :: Maybe AccountId -> Maybe TaskStatus -> GetMyTasksParams
[getMyTasksAssignedByAccountId] :: GetMyTasksParams -> Maybe AccountId
[getMyTasksStatus] :: GetMyTasksParams -> Maybe TaskStatus
instance GHC.Show.Show ChatWork.Types.My.GetMyTasksParams
instance GHC.Generics.Generic ChatWork.Types.My.MyTask
instance GHC.Show.Show ChatWork.Types.My.MyTask
instance GHC.Classes.Eq ChatWork.Types.My.MyTask
instance GHC.Generics.Generic ChatWork.Types.My.MyStatus
instance GHC.Show.Show ChatWork.Types.My.MyStatus
instance GHC.Classes.Eq ChatWork.Types.My.MyStatus
instance Data.Aeson.Types.ToJSON.ToJSON ChatWork.Types.My.MyStatus
instance Data.Aeson.Types.FromJSON.FromJSON ChatWork.Types.My.MyStatus
instance Data.Aeson.Types.ToJSON.ToJSON ChatWork.Types.My.MyTask
instance Data.Aeson.Types.FromJSON.FromJSON ChatWork.Types.My.MyTask
module ChatWork.Types.Rooms
type Rooms = [RoomDetail]
data RoomDetail
RoomDetail :: Int -> Text -> Text -> Text -> Bool -> Int -> Int -> Int -> Int -> Int -> Int -> Text -> Int -> Maybe Text -> RoomDetail
[roomDetailToRoomId] :: RoomDetail -> Int
[roomDetailToName] :: RoomDetail -> Text
[roomDetailToType] :: RoomDetail -> Text
[roomDetailToRole] :: RoomDetail -> Text
[roomDetailToSticky] :: RoomDetail -> Bool
[roomDetailToUnreadNum] :: RoomDetail -> Int
[roomDetailToMentionNum] :: RoomDetail -> Int
[roomDetailToMytaskNum] :: RoomDetail -> Int
[roomDetailToMessageNum] :: RoomDetail -> Int
[roomDetailToFileNum] :: RoomDetail -> Int
[roomDetailToTaskNum] :: RoomDetail -> Int
[roomDetailToIconPath] :: RoomDetail -> Text
[roomDetailToLastUpdateTime] :: RoomDetail -> Int
[roomDetailToDescription] :: RoomDetail -> Maybe Text
newtype RoomIdWrap
RoomIdWrap :: Int -> RoomIdWrap
[getRoomId] :: RoomIdWrap -> Int
type Members = [Member]
data Member
Member :: Int -> Text -> Text -> Text -> Int -> Text -> Text -> Text -> Member
[memberToAccountId] :: Member -> Int
[memberToRole] :: Member -> Text
[memberToName] :: Member -> Text
[memberToChatworkId] :: Member -> Text
[memberToOrganizationId] :: Member -> Int
[memberToOrganizationName] :: Member -> Text
[memberToDepartment] :: Member -> Text
[memberToAvatarImageUrl] :: Member -> Text
data MembersPermission
MembersPermission :: [Int] -> [Int] -> [Int] -> MembersPermission
[membersPermissionToAdmin] :: MembersPermission -> [Int]
[membersPermissionToMember] :: MembersPermission -> [Int]
[membersPermissionToReadonly] :: MembersPermission -> [Int]
type Messages = [Message]
data Message
Message :: Text -> Account -> Text -> Int -> Int -> Message
[messageToMessageId] :: Message -> Text
[messageToAccount] :: Message -> Account
[messageToBody] :: Message -> Text
[messageToSendTime] :: Message -> Int
[messageToUpdateTime] :: Message -> Int
newtype MessageIdWrap
MessageIdWrap :: Text -> MessageIdWrap
[getMessageId] :: MessageIdWrap -> Text
type RoomTasks = [RoomTask]
data RoomTask
RoomTask :: Int -> Account -> Account -> Text -> Text -> Int -> Text -> RoomTask
[roomTaskToTaskId] :: RoomTask -> Int
[roomTaskToAccount] :: RoomTask -> Account
[roomTaskToAssignedByAccount] :: RoomTask -> Account
[roomTaskToMessageId] :: RoomTask -> Text
[roomTaskToBody] :: RoomTask -> Text
[roomTaskToLimitTime] :: RoomTask -> Int
[roomTaskToStatus] :: RoomTask -> Text
newtype TaskIdsWrap
TaskIdsWrap :: [Int] -> TaskIdsWrap
[getTaskIds] :: TaskIdsWrap -> [Int]
type Files = [File]
data File
File :: Int -> Account -> Text -> Text -> Int -> Int -> File
[fileToFileId] :: File -> Int
[fileToAccount] :: File -> Account
[fileToMessageId] :: File -> Text
[fileToFilename] :: File -> Text
[fileToFilesize] :: File -> Int
[fileToUploadTime] :: File -> Int
-- | see:
-- http://developer.chatwork.com/ja/endpoint_rooms.html#POST-rooms
data CreateRoomParams
CreateRoomParams :: Maybe Text -> Maybe IconPreset -> [Int] -> Maybe [Int] -> Maybe [Int] -> Text -> CreateRoomParams
[cRoomDescription] :: CreateRoomParams -> Maybe Text
[cIconPreset] :: CreateRoomParams -> Maybe IconPreset
[cMembersAdminIds] :: CreateRoomParams -> [Int]
[cMembersMemberIds] :: CreateRoomParams -> Maybe [Int]
[cMembersReadonlyIds] :: CreateRoomParams -> Maybe [Int]
[cRoomName] :: CreateRoomParams -> Text
-- | see:
-- http://developer.chatwork.com/ja/endpoint_rooms.html#PUT-rooms-room_id
data UpdateRoomParams
UpdateRoomParams :: Maybe Text -> Maybe IconPreset -> Maybe Text -> UpdateRoomParams
[uRoomDescription] :: UpdateRoomParams -> Maybe Text
[uIconPreset] :: UpdateRoomParams -> Maybe IconPreset
[uRoomName] :: UpdateRoomParams -> Maybe Text
-- | see:
-- http://developer.chatwork.com/ja/endpoint_rooms.html#PUT-rooms-room_id-members
data RoomMembersParams
RoomMembersParams :: [Int] -> Maybe [Int] -> Maybe [Int] -> RoomMembersParams
[getAdminIds] :: RoomMembersParams -> [Int]
[getMemberIds] :: RoomMembersParams -> Maybe [Int]
[getReadonlyIds] :: RoomMembersParams -> Maybe [Int]
-- | see:
-- http://developer.chatwork.com/ja/endpoint_rooms.html#GET-rooms-room_id-tasks
data GetTasksParams
GetTasksParams :: Maybe Int -> Maybe Int -> Maybe TaskStatus -> GetTasksParams
[getTaskAccountId] :: GetTasksParams -> Maybe Int
[getTaskAssignedByAccountId] :: GetTasksParams -> Maybe Int
[getTaskStatus] :: GetTasksParams -> Maybe TaskStatus
-- | see:
-- http://developer.chatwork.com/ja/endpoint_rooms.html#POST-rooms-room_id-tasks
data CreateTaskParams
CreateTaskParams :: Text -> Maybe Int -> [Int] -> CreateTaskParams
[getTaskBody] :: CreateTaskParams -> Text
[getTaskLimit] :: CreateTaskParams -> Maybe Int
[getTaskToIds] :: CreateTaskParams -> [Int]
-- | see:
-- http://developer.chatwork.com/ja/endpoint_rooms.html#DELETE-rooms-room_id
data DeleteRoomActionType
LeaveRoom :: DeleteRoomActionType
DeleteRoom :: DeleteRoomActionType
-- | see:
-- http://developer.chatwork.com/ja/endpoint_rooms.html#GET-rooms-room_id-messages
type Force = Bool
-- | see:
-- http://developer.chatwork.com/ja/endpoint_rooms.html#POST-rooms-room_id-messages
type MessageBody = Text
-- | see:
-- http://developer.chatwork.com/ja/endpoint_rooms.html#GET-rooms-room_id-files-file_id
type CreateUrlFlag = Bool
instance GHC.Classes.Eq ChatWork.Types.Rooms.DeleteRoomActionType
instance GHC.Enum.Enum ChatWork.Types.Rooms.DeleteRoomActionType
instance GHC.Enum.Bounded ChatWork.Types.Rooms.DeleteRoomActionType
instance GHC.Show.Show ChatWork.Types.Rooms.CreateTaskParams
instance GHC.Show.Show ChatWork.Types.Rooms.GetTasksParams
instance GHC.Show.Show ChatWork.Types.Rooms.RoomMembersParams
instance GHC.Show.Show ChatWork.Types.Rooms.UpdateRoomParams
instance GHC.Show.Show ChatWork.Types.Rooms.CreateRoomParams
instance GHC.Generics.Generic ChatWork.Types.Rooms.File
instance GHC.Show.Show ChatWork.Types.Rooms.File
instance GHC.Classes.Eq ChatWork.Types.Rooms.File
instance GHC.Generics.Generic ChatWork.Types.Rooms.TaskIdsWrap
instance GHC.Show.Show ChatWork.Types.Rooms.TaskIdsWrap
instance GHC.Classes.Eq ChatWork.Types.Rooms.TaskIdsWrap
instance GHC.Generics.Generic ChatWork.Types.Rooms.RoomTask
instance GHC.Show.Show ChatWork.Types.Rooms.RoomTask
instance GHC.Classes.Eq ChatWork.Types.Rooms.RoomTask
instance GHC.Generics.Generic ChatWork.Types.Rooms.MessageIdWrap
instance GHC.Show.Show ChatWork.Types.Rooms.MessageIdWrap
instance GHC.Classes.Eq ChatWork.Types.Rooms.MessageIdWrap
instance GHC.Generics.Generic ChatWork.Types.Rooms.Message
instance GHC.Show.Show ChatWork.Types.Rooms.Message
instance GHC.Classes.Eq ChatWork.Types.Rooms.Message
instance GHC.Generics.Generic ChatWork.Types.Rooms.MembersPermission
instance GHC.Show.Show ChatWork.Types.Rooms.MembersPermission
instance GHC.Classes.Eq ChatWork.Types.Rooms.MembersPermission
instance GHC.Generics.Generic ChatWork.Types.Rooms.Member
instance GHC.Show.Show ChatWork.Types.Rooms.Member
instance GHC.Classes.Eq ChatWork.Types.Rooms.Member
instance GHC.Generics.Generic ChatWork.Types.Rooms.RoomIdWrap
instance GHC.Show.Show ChatWork.Types.Rooms.RoomIdWrap
instance GHC.Classes.Eq ChatWork.Types.Rooms.RoomIdWrap
instance GHC.Generics.Generic ChatWork.Types.Rooms.RoomDetail
instance GHC.Show.Show ChatWork.Types.Rooms.RoomDetail
instance GHC.Classes.Eq ChatWork.Types.Rooms.RoomDetail
instance Data.Aeson.Types.ToJSON.ToJSON ChatWork.Types.Rooms.RoomDetail
instance Data.Aeson.Types.FromJSON.FromJSON ChatWork.Types.Rooms.RoomDetail
instance Data.Aeson.Types.ToJSON.ToJSON ChatWork.Types.Rooms.RoomIdWrap
instance Data.Aeson.Types.FromJSON.FromJSON ChatWork.Types.Rooms.RoomIdWrap
instance Data.Aeson.Types.ToJSON.ToJSON ChatWork.Types.Rooms.Member
instance Data.Aeson.Types.FromJSON.FromJSON ChatWork.Types.Rooms.Member
instance Data.Aeson.Types.ToJSON.ToJSON ChatWork.Types.Rooms.MembersPermission
instance Data.Aeson.Types.FromJSON.FromJSON ChatWork.Types.Rooms.MembersPermission
instance Data.Aeson.Types.ToJSON.ToJSON ChatWork.Types.Rooms.Message
instance Data.Aeson.Types.FromJSON.FromJSON ChatWork.Types.Rooms.Message
instance Data.Aeson.Types.ToJSON.ToJSON ChatWork.Types.Rooms.MessageIdWrap
instance Data.Aeson.Types.FromJSON.FromJSON ChatWork.Types.Rooms.MessageIdWrap
instance Data.Aeson.Types.ToJSON.ToJSON ChatWork.Types.Rooms.RoomTask
instance Data.Aeson.Types.FromJSON.FromJSON ChatWork.Types.Rooms.RoomTask
instance Data.Aeson.Types.ToJSON.ToJSON ChatWork.Types.Rooms.TaskIdsWrap
instance Data.Aeson.Types.FromJSON.FromJSON ChatWork.Types.Rooms.TaskIdsWrap
instance Data.Aeson.Types.ToJSON.ToJSON ChatWork.Types.Rooms.File
instance Data.Aeson.Types.FromJSON.FromJSON ChatWork.Types.Rooms.File
instance Web.Internal.FormUrlEncoded.FromForm ChatWork.Types.Rooms.CreateRoomParams
instance Web.Internal.FormUrlEncoded.FromForm ChatWork.Types.Rooms.UpdateRoomParams
instance Web.Internal.FormUrlEncoded.FromForm ChatWork.Types.Rooms.RoomMembersParams
instance Web.Internal.FormUrlEncoded.FromForm ChatWork.Types.Rooms.CreateTaskParams
instance GHC.Show.Show ChatWork.Types.Rooms.DeleteRoomActionType
instance Web.Internal.FormUrlEncoded.FromForm ChatWork.Types.Rooms.DeleteRoomActionType
instance Web.Internal.HttpApiData.ToHttpApiData ChatWork.Types.Rooms.DeleteRoomActionType
instance Web.Internal.HttpApiData.FromHttpApiData ChatWork.Types.Rooms.DeleteRoomActionType
module ChatWork.Types
-- | Wrapper type synonym of JsonResponse and ChatWorkErrors
type ChatWorkResponse a = JsonResponse (Either ChatWorkErrors a)
-- | Helper Type Class of QueryParam use to construct request
-- parameter from param type, e.g. CreateRoomParams
class ToReqParam a
toReqParam :: (ToReqParam a, QueryParam param, Monoid param) => Text -> a -> param
instance Data.Aeson.Types.FromJSON.FromJSON a => Data.Aeson.Types.FromJSON.FromJSON (Data.Either.Either ChatWork.Types.Error.ChatWorkErrors a)
instance ChatWork.Types.ToReqParam GHC.Types.Int
instance ChatWork.Types.ToReqParam Data.Text.Internal.Text
instance ChatWork.Types.ToReqParam a => ChatWork.Types.ToReqParam (GHC.Base.Maybe a)
instance GHC.Show.Show a => ChatWork.Types.ToReqParam [a]
instance ChatWork.Types.ToReqParam ChatWork.Types.Base.IconPreset
instance ChatWork.Types.ToReqParam ChatWork.Types.Base.TaskStatus
-- | This module is that define MonadHttp type class instance of IO. if you
-- want other definition, don't import this module.
module ChatWork.MonadHttpIO
instance Network.HTTP.Req.MonadHttp GHC.Types.IO
module ChatWork.Client
type Token = ByteString
newtype ChatWorkClient
ChatWorkClient :: Token -> ChatWorkClient
-- | By using type class, the same functions can be used for mock servers
-- and local hosts.
class Client a where type ClientScheme a :: Scheme where {
type family ClientScheme a :: Scheme;
}
baseUrl :: Client a => a -> Url (ClientScheme a)
mkHeader :: Client a => a -> Option scheme
instance ChatWork.Client.Client ChatWork.Client.ChatWorkClient
-- | see : http://developer.chatwork.com/ja/endpoint_contacts.html
module ChatWork.Endpoints.Contacts
getContacts :: (MonadHttp m, Client c) => c -> m (ChatWorkResponse Contacts)
-- | see :
-- http://developer.chatwork.com/ja/endpoint_incoming_requests.html
module ChatWork.Endpoints.IncomingRequests
getIncomingRequests :: (MonadHttp m, Client c) => c -> m (ChatWorkResponse IncomingRequests)
-- | argument Int is request_id
acceptIncomingRequest :: (MonadHttp m, Client c) => c -> Int -> m (ChatWorkResponse AcceptedIncomingRequest)
-- | argument Int is request_id
rejectIncomingRequest :: (MonadHttp m, Client c) => c -> Int -> m (ChatWorkResponse ())
-- | see : http://developer.chatwork.com/ja/endpoint_me.html
module ChatWork.Endpoints.Me
getMe :: (MonadHttp m, Client c) => c -> m (ChatWorkResponse Me)
-- | see : http://developer.chatwork.com/ja/endpoint_my.html
module ChatWork.Endpoints.My
getMyStatus :: (MonadHttp m, Client c) => c -> m (ChatWorkResponse MyStatus)
getMyTasks :: (MonadHttp m, Client c) => c -> GetMyTasksParams -> m (ChatWorkResponse MyTasks)
-- | see : http://developer.chatwork.com/ja/endpoint_rooms.html
module ChatWork.Endpoints.Rooms
getRooms :: (MonadHttp m, Client c) => c -> m (ChatWorkResponse Rooms)
createRoom :: (MonadHttp m, Client c) => c -> CreateRoomParams -> m (ChatWorkResponse RoomIdWrap)
-- | argumrnt Int is room_id.
getRoom :: (MonadHttp m, Client c) => c -> Int -> m (ChatWorkResponse RoomDetail)
-- | argumrnt Int is room_id.
updateRoom :: (MonadHttp m, Client c) => c -> Int -> UpdateRoomParams -> m (ChatWorkResponse RoomIdWrap)
-- | wrap deleteRoom' function, using DeleteRoom. argumrnt
-- Int is room_id.
deleteRoom :: (MonadHttp m, Client c) => c -> Int -> m (ChatWorkResponse ())
-- | wrap deleteRoom' function, using LeaveRoom. argumrnt
-- Int is room_id.
leaveRoom :: (MonadHttp m, Client c) => c -> Int -> m (ChatWorkResponse ())
-- | argumrnt Int is room_id.
deleteRoom' :: (MonadHttp m, Client c) => c -> Int -> DeleteRoomActionType -> m (ChatWorkResponse ())
-- | argumrnt Int is room_id.
getMembers :: (MonadHttp m, Client c) => c -> Int -> m (ChatWorkResponse Members)
-- | argumrnt Int is room_id.
updateMembersPermission :: (MonadHttp m, Client c) => c -> Int -> RoomMembersParams -> m (ChatWorkResponse MembersPermission)
-- | argumrnt Int is room_id.
getMessages :: (MonadHttp m, Client c) => c -> Int -> Maybe Force -> m (ChatWorkResponse Messages)
-- | argumrnt Int is room_id.
postMessage :: (MonadHttp m, Client c) => c -> Int -> MessageBody -> m (ChatWorkResponse MessageIdWrap)
-- | argumrnt Int is room_id. argumrnt Text is
-- message_id.
getMessage :: (MonadHttp m, Client c) => c -> Int -> Text -> m (ChatWorkResponse Message)
-- | argumrnt Int is room_id.
getRoomTasks :: (MonadHttp m, Client c) => c -> Int -> GetTasksParams -> m (ChatWorkResponse RoomTasks)
-- | argumrnt Int is room_id.
createTask :: (MonadHttp m, Client c) => c -> Int -> CreateTaskParams -> m (ChatWorkResponse TaskIdsWrap)
-- | argumrnt first Int is room_id. argumrnt second
-- Int is task_id.
getRoomTask :: (MonadHttp m, Client c) => c -> Int -> Int -> m (ChatWorkResponse RoomTask)
-- | argumrnt Int is room_id.
getFiles :: (MonadHttp m, Client c) => c -> Int -> Maybe AccountId -> m (ChatWorkResponse Files)
-- | argumrnt first Int is room_id. argumrnt second
-- Int is file_id.
getFile :: (MonadHttp m, Client c) => c -> Int -> Int -> Maybe CreateUrlFlag -> m (ChatWorkResponse File)
module ChatWork.Endpoints
-- | This module is re-export all endpoint functions and types from this
-- package.
module ChatWork