Hastodon 0.0.2 → 0.1.0

raw patch · 2 files changed

+58/−56 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Hastodon.cabal +1/−1
• Web/Hastodon.hs +57/−55

@@ -1,5 +1,5 @@ Name: Hastodon-Version: 0.0.2+Version: 0.1.0 Synopsis: mastodon client module for Haskell Category: Web Description: mastodon client module for Haskell

@@ -1,6 +1,8 @@ module Web.Hastodon   (-    Account(..)+    HastodonClient++  , Account(..)   , Application(..)   , Attachment(..)   , Card(..)@@ -407,8 +409,8 @@     Left err -> return $ Nothing     Right oauthData -> return $ Just $ HastodonClient host (accessToken oauthData) -getAccountById :: Int -> HastodonClient -> IO (Either JSONException Account)-getAccountById id client = do+getAccountById :: HastodonClient -> Int -> IO (Either JSONException Account)+getAccountById client id = do   res <- getHastodonResponseJSON (replace ":id" (show id) pAccountById) client   return (getResponseBody res :: Either JSONException Account) @@ -418,60 +420,60 @@   return (getResponseBody res :: Either JSONException Account)  -- TODO support options-getFollowers :: Int -> HastodonClient -> IO (Either JSONException [Account])-getFollowers id client = do+getFollowers :: HastodonClient -> Int -> IO (Either JSONException [Account])+getFollowers client id = do   res <- getHastodonResponseJSON (replace ":id" (show id) pFollowers) client   return (getResponseBody res :: Either JSONException [Account]) -getFollowing :: Int -> HastodonClient -> IO (Either JSONException [Account])-getFollowing id client = do+getFollowing :: HastodonClient -> Int -> IO (Either JSONException [Account])+getFollowing client id = do   res <- getHastodonResponseJSON (replace ":id" (show id) pFollowing) client   return (getResponseBody res :: Either JSONException [Account]) -getAccountStatuses :: Int -> HastodonClient -> IO (Either JSONException [Status])-getAccountStatuses id client = do+getAccountStatuses :: HastodonClient -> Int -> IO (Either JSONException [Status])+getAccountStatuses client id = do   res <- getHastodonResponseJSON (replace ":id" (show id) pAccountStatuses) client   return (getResponseBody res :: Either JSONException [Status]) -getRelationships :: [Int] -> HastodonClient -> IO (Either JSONException [Relationship])-getRelationships ids client = do+getRelationships :: HastodonClient -> [Int] ->  IO (Either JSONException [Relationship])+getRelationships client ids = do   let intIds = map (show) ids   let params = foldl (\x y -> x ++ (if x == "" then "?" else "&") ++ "id%5b%5d=" ++ y) "" intIds   res <- getHastodonResponseJSON (pRelationships ++ params) client   return (getResponseBody res :: Either JSONException [Relationship]) -getSearchedAccounts :: String -> HastodonClient -> IO (Either JSONException [Account])-getSearchedAccounts query client = do+getSearchedAccounts :: HastodonClient -> String ->  IO (Either JSONException [Account])+getSearchedAccounts client query = do   res <- getHastodonResponseJSON (pSearchAccounts ++ "?q=" ++ query) client   return (getResponseBody res :: Either JSONException [Account]) -postFollow :: Int -> HastodonClient -> IO (Either JSONException Relationship)-postFollow id client = do+postFollow :: HastodonClient -> Int ->  IO (Either JSONException Relationship)+postFollow client id = do   res <- postAndGetHastodonResponseJSON (replace ":id" (show id) pFollow) [] client   return (getResponseBody res :: Either JSONException Relationship) -postUnfollow :: Int -> HastodonClient -> IO (Either JSONException Relationship)-postUnfollow id client = do+postUnfollow :: HastodonClient -> Int ->  IO (Either JSONException Relationship)+postUnfollow client id = do   res <- postAndGetHastodonResponseJSON (replace ":id" (show id) pUnfollow) [] client   return (getResponseBody res :: Either JSONException Relationship) -postBlock :: Int -> HastodonClient -> IO (Either JSONException Relationship)-postBlock id client = do+postBlock :: HastodonClient -> Int ->  IO (Either JSONException Relationship)+postBlock client id = do   res <- postAndGetHastodonResponseJSON (replace ":id" (show id) pBlock) [] client   return (getResponseBody res :: Either JSONException Relationship) -postUnblock :: Int -> HastodonClient -> IO (Either JSONException Relationship)-postUnblock id client = do+postUnblock :: HastodonClient -> Int ->  IO (Either JSONException Relationship)+postUnblock client id = do   res <- postAndGetHastodonResponseJSON (replace ":id" (show id) pUnblock) [] client   return (getResponseBody res :: Either JSONException Relationship) -postMute :: Int -> HastodonClient -> IO (Either JSONException Relationship)-postMute id client = do+postMute :: HastodonClient -> Int ->  IO (Either JSONException Relationship)+postMute client id = do   res <- postAndGetHastodonResponseJSON (replace ":id" (show id) pMute) [] client   return (getResponseBody res :: Either JSONException Relationship) -postUnmute :: Int -> HastodonClient -> IO (Either JSONException Relationship)-postUnmute id client = do+postUnmute :: HastodonClient -> Int ->  IO (Either JSONException Relationship)+postUnmute client id = do   res <- postAndGetHastodonResponseJSON (replace ":id" (show id) pUnmute) [] client   return (getResponseBody res :: Either JSONException Relationship) @@ -500,11 +502,11 @@   res <- getHastodonResponseJSON pFollowRequests client   return (getResponseBody res :: Either JSONException [Account]) -postAuthorizeRequest :: Int -> HastodonClient -> IO Bool-postAuthorizeRequest id = postAndGetHastodonResult (replace ":id" (show id) pAuthorizeRequest) []+postAuthorizeRequest :: HastodonClient -> Int ->  IO Bool+postAuthorizeRequest client id = postAndGetHastodonResult (replace ":id" (show id) pAuthorizeRequest) [] client -postRejectRequest :: Int -> HastodonClient -> IO Bool-postRejectRequest id = postAndGetHastodonResult (replace ":id" (show id) pRejectRequest) []+postRejectRequest :: HastodonClient -> Int ->  IO Bool+postRejectRequest client id = postAndGetHastodonResult (replace ":id" (show id) pRejectRequest) [] client  getInstance :: HastodonClient -> IO (Either JSONException Instance) getInstance client = do@@ -521,8 +523,8 @@   res <- getHastodonResponseJSON pNotifications client   return (getResponseBody res :: Either JSONException [Notification]) -getNotificationById :: Int -> HastodonClient -> IO (Either JSONException Notification)-getNotificationById id client = do+getNotificationById :: HastodonClient -> Int ->  IO (Either JSONException Notification)+getNotificationById client id = do   res <- getHastodonResponseJSON (replace ":id" (show id) pNotificationById) client   return (getResponseBody res :: Either JSONException Notification) @@ -534,58 +536,58 @@   res <- getHastodonResponseJSON pReports client   return (getResponseBody res :: Either JSONException [Report]) -getSearchedResults :: String -> HastodonClient -> IO (Either JSONException [Results])-getSearchedResults query client = do+getSearchedResults :: HastodonClient -> String ->  IO (Either JSONException [Results])+getSearchedResults client query = do   res <- getHastodonResponseJSON (pSearch ++ "?q=" ++ query) client   return (getResponseBody res :: Either JSONException [Results]) -getStatus :: Int -> HastodonClient -> IO (Either JSONException Status)-getStatus id client = do+getStatus :: HastodonClient -> Int ->  IO (Either JSONException Status)+getStatus client id = do   res <- getHastodonResponseJSON (replace ":id" (show id) pStatus) client   return (getResponseBody res :: Either JSONException Status) -getCard :: Int -> HastodonClient -> IO (Either JSONException Card)-getCard id client = do+getCard :: HastodonClient -> Int ->  IO (Either JSONException Card)+getCard client id = do   res <- getHastodonResponseJSON (replace ":id" (show id) pCard) client   return (getResponseBody res :: Either JSONException Card) -getContext :: Int -> HastodonClient -> IO (Either JSONException Context)-getContext id client = do+getContext :: HastodonClient -> Int ->  IO (Either JSONException Context)+getContext client id = do   res <- getHastodonResponseJSON (replace ":id" (show id) pContext) client   return (getResponseBody res :: Either JSONException Context) -getRebloggedBy :: Int -> HastodonClient -> IO (Either JSONException [Account])-getRebloggedBy id client = do+getRebloggedBy :: HastodonClient -> Int ->  IO (Either JSONException [Account])+getRebloggedBy client id = do   res <- getHastodonResponseJSON (replace ":id" (show id) pRebloggedBy) client   return (getResponseBody res :: Either JSONException [Account]) -getFavoritedBy :: Int -> HastodonClient -> IO (Either JSONException [Account])-getFavoritedBy id client = do+getFavoritedBy :: HastodonClient -> Int ->  IO (Either JSONException [Account])+getFavoritedBy client id = do   res <- getHastodonResponseJSON (replace ":id" (show id) pFavoritedBy) client   return (getResponseBody res :: Either JSONException [Account]) -postStatus :: String -> HastodonClient -> IO (Either JSONException Status)-postStatus status client = do+postStatus :: HastodonClient -> String ->  IO (Either JSONException Status)+postStatus client status = do   res <- postAndGetHastodonResponseJSON pStatuses [(Char8.pack "status", Char8.pack status)] client   return (getResponseBody res :: Either JSONException Status) -postReblog :: Int -> HastodonClient -> IO (Either JSONException Status)-postReblog id client = do+postReblog :: HastodonClient -> Int ->  IO (Either JSONException Status)+postReblog client id = do   res <- postAndGetHastodonResponseJSON (replace ":id" (show id) pReblog) [] client   return (getResponseBody res :: Either JSONException Status) -postUnreblog :: Int -> HastodonClient -> IO (Either JSONException Status)-postUnreblog id client = do+postUnreblog :: HastodonClient -> Int ->  IO (Either JSONException Status)+postUnreblog client id = do   res <- postAndGetHastodonResponseJSON (replace ":id" (show id) pUnreblog) [] client   return (getResponseBody res :: Either JSONException Status) -postFavorite :: Int -> HastodonClient -> IO (Either JSONException Status)-postFavorite id client = do+postFavorite :: HastodonClient -> Int ->  IO (Either JSONException Status)+postFavorite client id = do   res <- postAndGetHastodonResponseJSON (replace ":id" (show id) pFavorite) [] client   return (getResponseBody res :: Either JSONException Status) -postUnfavorite :: Int -> HastodonClient -> IO (Either JSONException Status)-postUnfavorite id client = do+postUnfavorite :: HastodonClient -> Int ->  IO (Either JSONException Status)+postUnfavorite client id = do   res <- postAndGetHastodonResponseJSON (replace ":id" (show id) pUnfavorite) [] client   return (getResponseBody res :: Either JSONException Status) @@ -599,7 +601,7 @@   res <- getHastodonResponseJSON pPublicTimeline client   return (getResponseBody res :: Either JSONException [Status]) -getTaggedTimeline :: String -> HastodonClient -> IO (Either JSONException [Status])-getTaggedTimeline hashtag client = do+getTaggedTimeline :: HastodonClient -> String ->  IO (Either JSONException [Status])+getTaggedTimeline client hashtag = do   res <- getHastodonResponseJSON (replace ":hashtag" hashtag pTaggedTimeline) client   return (getResponseBody res :: Either JSONException [Status])