-- 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