v 0.5

unfoldml · Aug 6, 2023 · 23da10b · 23da10b
1 parent 40d0bed
commit 23da10b
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 1 deletion.
diff --git a/ms-azure-api/CHANGELOG.md b/ms-azure-api/CHANGELOG.md
@@ -14,6 +14,13 @@ ToJSON instance of Location renders the full name e.g. "West Europe"
 
 MSAzureAPI.ServiceBus
 
+add 'http-client' as an explicit dependency
+
+* breaking changes
+
+Fixed definition of 'put' to use the correct HTTP verb
+Add constructor to 'APIPlane' to reflect service bus usage
+
 ## 0.4
 
 TLS support

diff --git a/ms-azure-api/src/MSAzureAPI/ServiceBus.hs b/ms-azure-api/src/MSAzureAPI/ServiceBus.hs
@@ -1,5 +1,7 @@
+{-# LANGUAGE TypeFamilies #-}
 module MSAzureAPI.ServiceBus where
 
+import GHC.Exts (IsList(..))
 import GHC.Generics (Generic(..))
 
 -- aeson
@@ -37,8 +39,11 @@ sendMessageBatch sn qname topic = postSBMessage sn [
  where
  qpt = qname <> "|" <> topic
 
-
 newtype MessageBatch a = MessageBatch [a] deriving (Eq, Show)
+instance IsList (MessageBatch a) where
+ type Item (MessageBatch a) = a
+ fromList = MessageBatch
+ toList (MessageBatch xs) = xs
 instance A.ToJSON a => A.ToJSON (MessageBatch a) where
  toJSON (MessageBatch xs) = A.toJSON $ map (\x -> M.singleton ("Body" :: String) x) xs