calamity 0.7.0.0 → 0.7.0.1

raw patch · 3 files changed

+14/−9 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• Calamity/Types/CDNAsset.hs +9/−8
• ChangeLog.md +4/−0
• calamity.cabal +1/−1

@@ -1,21 +1,22 @@ -- | Things that can be fetched from the discord CDN-module Calamity.Types.CDNAsset (-  CDNAsset (..),-  fetchAsset,-  fetchAsset',-) where+module Calamity.Types.CDNAsset+  ( CDNAsset (..),+    fetchAsset,+    fetchAsset',+  )+where  import qualified Control.Exception.Safe as Ex-import Data.ByteString.Lazy (LazyByteString)+import Data.ByteString.Lazy (ByteString) import qualified Network.HTTP.Req as Req import qualified Polysemy as P  -- | Retrieve the asset from the CDN, like 'fetchAsset' but gives you more control-fetchAsset' :: (CDNAsset a, Req.MonadHttp m) => a -> m LazyByteString+fetchAsset' :: (CDNAsset a, Req.MonadHttp m) => a -> m ByteString fetchAsset' a = Req.responseBody <$> Req.req Req.GET (assetURL a) Req.NoReqBody Req.lbsResponse mempty  -- | Retrieve the asset from the CDN-fetchAsset :: (CDNAsset a, P.Member (P.Embed IO) r) => a -> P.Sem r (Either Req.HttpException LazyByteString)+fetchAsset :: (CDNAsset a, P.Member (P.Embed IO) r) => a -> P.Sem r (Either Req.HttpException ByteString) fetchAsset a = P.embed $ Ex.catch (Right <$> r) (\(e :: Req.HttpException) -> pure $ Left e)   where     r = Req.runReq reqConfig $ fetchAsset' a

@@ -1,5 +1,9 @@ # Changelog for Calamity +## 0.7.0.1+++ Fix accidental semver breakage+ ## 0.7.0.0  + Added the `CDNAsset` typeclass for resolving CDN asset links and fetching

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           calamity-version:        0.7.0.0+version:        0.7.0.1 synopsis:       A library for writing discord bots in haskell description:    Please see the README on GitHub at <https://github.com/simmsb/calamity#readme> category:       Network, Web