leankit-api 0.2 → 0.3

raw patch · 6 files changed

+56/−6 lines, 6 files

Files

• Leankit/Api.hs +46/−1
• Leankit/Types/BoardIdentifierSet.hs +2/−2
• Leankit/Types/Card.hs +2/−1
• Leankit/Types/CardComment.hs +1/−1
• Leankit/Types/Common.hs +4/−0
• leankit-api.cabal +1/−1

@@ -1,4 +1,49 @@-module Leankit.Api where+module Leankit.Api +	(+		getBoards,+		getBoardsMaybe,+		getBoardsEither,++		getBoard,+		getBoardMaybe,+		getBoardEither,++		getCard,+		getCardMaybe,+		getCardEither,++		getBoardIdentifiers,+		getBoardIdentifiersMaybe,+		getBoardIdentifiersEither,++		getNewerIfExists,+		getNewerIfExistsMaybe,+		getNewerIfExistsEither,++		getBoardHistorySince,+		getBoardHistorySinceMaybe,+		getBoardHistorySinceEither,++		getCardByExternalId,+		getCardByExternalIdMaybe,+		getCardByExternalIdEither,++		getBackLog,+		getBackLogMaybe,+		getBackLogEither,++		getArchive,+		getArchiveMaybe,+		getArchiveEither,++		getCardHistory,+		getCardHistoryMaybe,+		getCardHistoryEither,++		getCardComments,+		getCardCommentsMaybe,+		getCardCommentsEither+	) where  import Data.ByteString.Lazy.Internal (ByteString) import Network.Curl

@@ -23,8 +23,8 @@  	_cardTypes        :: [BoardIdentifier CardTypeID], 	_boardUsers       :: [BoardIdentifier UserID],-	_priorities       :: [BoardIdentifier PriorityID]---  _classesOfService :: Something -- TODO+	_priorities       :: [BoardIdentifier PriorityID],+	_classesOfService :: [BoardIdentifier ClassOfServiceID] --	_boardStatistics  :: Something -- TODO } deriving (Eq, Show) 

@@ -57,7 +57,8 @@         _systemType                    :: Maybe String,         _currentContext                :: Maybe String,         _cardContexts                  :: Maybe [CardContext], -- ?-        --_taskBoardTotalCards         :: [Something], -- TODO+        _taskBoardTotalCards           :: Maybe Int,+        _taskBoardTotalSize            :: Maybe Int,         _blockReason                   :: Maybe String,         _blockStateChangeDate          :: Maybe String, 

@@ -18,7 +18,7 @@        _text                 :: Maybe String, -      _taggedUsers          :: Maybe [String], -- TODO what's this?+--      _taggedUsers          :: Maybe [Something], -- TODO what's this?       _editable             :: Maybe Bool } deriving (Eq, Show) 

@@ -61,3 +61,7 @@ instance FromJSON PriorityID where         parseJSON v = PriorityID <$> parseJSON v +newtype ClassOfServiceID = ClassOfServiceID Int deriving (Eq, Show)+instance FromJSON ClassOfServiceID where+        parseJSON v = ClassOfServiceID <$> parseJSON v+

@@ -1,5 +1,5 @@ Name:              leankit-api-Version:           0.2+Version:           0.3 Synopsis:          LeanKit API Description:       A lightweight API for LeanKit (http:\/\/leankit.com) License:           MIT