diff --git a/LICENSE b/LICENSE --- a/LICENSE +++ b/LICENSE @@ -1,21 +1,21 @@ -MIT License - -Copyright (c) 2017 MATSUBARA Nobutada - -Permission is hereby granted, free of charge, to any person obtaining a copy -of this software and associated documentation files (the "Software"), to deal -in the Software without restriction, including without limitation the rights -to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -copies of the Software, and to permit persons to whom the Software is -furnished to do so, subject to the following conditions: - -The above copyright notice and this permission notice shall be included in all -copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE -SOFTWARE. +MIT License + +Copyright (c) 2017 MATSUBARA Nobutada + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this software and associated documentation files (the "Software"), to deal +in the Software without restriction, including without limitation the rights +to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +copies of the Software, and to permit persons to whom the Software is +furnished to do so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in all +copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE +SOFTWARE. diff --git a/Setup.hs b/Setup.hs --- a/Setup.hs +++ b/Setup.hs @@ -1,2 +1,2 @@ -import Distribution.Simple -main = defaultMain +import Distribution.Simple +main = defaultMain diff --git a/chatwork.cabal b/chatwork.cabal --- a/chatwork.cabal +++ b/chatwork.cabal @@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack name: chatwork -version: 0.1.1.0 +version: 0.1.1.1 synopsis: The ChatWork API in Haskell description: See README at homepage: https://github.com/matsubara0507/chatwork#readme @@ -48,7 +48,7 @@ ChatWork.Internal build-depends: base >=4.7 && <5 - , aeson >=1.0.2.1 && <1.2 + , aeson >=1.0.2.1 && <1.3 , aeson-casing >=0.1.0.5 && <0.2 , bytestring >=0.10.8.1 && <0.11 , connection >=0.2.7 && <0.3 @@ -61,6 +61,27 @@ , text >=1.2.2.1 && <1.3 default-language: Haskell2010 +executable sample-exe + main-is: Main.hs + hs-source-dirs: + sample + ghc-options: -Wall + build-depends: + base >=4.7 && <5 + , aeson >=1.0.2.1 && <1.3 + , aeson-casing >=0.1.0.5 && <0.2 + , bytestring >=0.10.8.1 && <0.11 + , connection >=0.2.7 && <0.3 + , data-default-class >=0.1.2.0 && <0.2 + , http-api-data >=0.3.5 && <0.3.8 + , http-client >=0.5.5.0 && <0.6 + , http-client-tls >=0.3.3.1 && <0.4 + , http-types >=0.9.1 && <0.10 + , req >=0.3.0 && <0.4 + , text >=1.2.2.1 && <1.3 + , chatwork + default-language: Haskell2010 + test-suite spec type: exitcode-stdio-1.0 main-is: Spec.hs @@ -70,7 +91,7 @@ ghc-options: -Wall build-depends: base >=4.7 && <5 - , aeson >=1.0.2.1 && <1.2 + , aeson >=1.0.2.1 && <1.3 , aeson-casing >=0.1.0.5 && <0.2 , bytestring >=0.10.8.1 && <0.11 , connection >=0.2.7 && <0.3 diff --git a/sample/Main.hs b/sample/Main.hs new file mode 100644 --- /dev/null +++ b/sample/Main.hs @@ -0,0 +1,21 @@ +{-# LANGUAGE OverloadedStrings #-} + +import ChatWork +import Network.HTTP.Req (responseBody) + +main :: IO () +main = do + let + token = "xxx" + client = ChatWorkClient token + (Right myId) <- (fmap meToAccountId . responseBody) <$> getMe client + (Right ids) <- + (fmap (fmap contactToAccountId) . responseBody) <$> getContacts client + (Right roomId) <- (fmap getRoomId . responseBody) <$> createRoom client + (CreateRoomParams Nothing Nothing [myId] (Just ids) Nothing "test") + _ <- postMessage client roomId "Wellcome to Test Room !!" + _ <- createTask client roomId + (CreateTaskParams "Self-Introduction" Nothing ids) + + putStrLn $ + "I Created Test Room and Tasks that Self-Introductions to my contact members." diff --git a/src/ChatWork/Types/My.hs b/src/ChatWork/Types/My.hs --- a/src/ChatWork/Types/My.hs +++ b/src/ChatWork/Types/My.hs @@ -47,7 +47,7 @@ parseJSON = genericParseJSON $ aesonDrop (strLength "myTaskTo") snakeCase -- | --- see: +-- see: data GetMyTasksParams = GetMyTasksParams { getMyTasksAssignedByAccountId :: Maybe AccountId , getMyTasksStatus :: Maybe TaskStatus diff --git a/test/Spec.hs b/test/Spec.hs --- a/test/Spec.hs +++ b/test/Spec.hs @@ -1,1 +1,1 @@ -{-# OPTIONS_GHC -F -pgmF hspec-discover #-} +{-# OPTIONS_GHC -F -pgmF hspec-discover #-}