aws-easy 0.1.0.1 → 0.1.0.2
raw patch · 2 files changed
+20/−5 lines, 2 filesdep +monad-controlPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependencies added: monad-control
API changes (from Hackage documentation)
- Network.AWS.Easy.Classes: class ServiceClass a where type TypedSession a :: * where {
+ Network.AWS.Easy.Classes: class ServiceClass a where {
- Network.AWS.Easy.Service: withAWS :: (MonadBaseControl IO m, SessionClass b) => AWST' Env (ResourceT m) a -> b -> m a
+ Network.AWS.Easy.Service: withAWS :: (MonadBaseControl IO m, MonadUnliftIO m, SessionClass b) => AWST' Env (ResourceT m) a -> b -> m a
Files
- aws-easy.cabal +2/−1
- lib/Network/AWS/Easy/Service.hs +18/−4
aws-easy.cabal view
@@ -1,5 +1,5 @@ name: aws-easy-version: 0.1.0.1+version: 0.1.0.2 synopsis: Helper function and types for working with amazonka description: This package provides assorted functions and some Template Haskell to simplify working the @amazonka@ family of packages for interacting with Amazon Web Services. homepage: https://github.com/rcook/aws-easy#readme@@ -25,6 +25,7 @@ , base >= 4.7 && < 5 , bytestring , lens+ , monad-control , resourcet , template-haskell exposed-modules: Network.AWS.Easy
lib/Network/AWS/Easy/Service.hs view
@@ -11,6 +11,7 @@ -} {-# LANGUAGE AllowAmbiguousTypes #-}+{-# LANGUAGE CPP #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-}@@ -40,10 +41,6 @@ , runAWST , within )-import Control.Monad.Trans.Resource- ( MonadBaseControl- , ResourceT- ) import Data.ByteString (ByteString) import Network.AWS ( Credentials(..)@@ -61,6 +58,19 @@ import Network.AWS.Easy.Types import System.IO (stdout) +#if __GLASGOW_HASKELL__ >= 802+import Control.Monad.Trans.Control (MonadBaseControl)+import Control.Monad.Trans.Resource+ ( MonadUnliftIO+ , ResourceT+ )+#else+import Control.Monad.Trans.Resource+ ( MonadBaseControl+ , ResourceT+ )+#endif+ type HostName = ByteString type Port = Int@@ -102,7 +112,11 @@ -- Run against a local DynamoDB instance on a given host and port regionService (Local hostName port) s = (NorthVirginia, setEndpoint False hostName port s) +#if __GLASGOW_HASKELL__ >= 802+withAWS :: (MonadBaseControl IO m, MonadUnliftIO m, SessionClass b) =>+#else withAWS :: (MonadBaseControl IO m, SessionClass b) =>+#endif AWST' Env (ResourceT m) a -> b -> m a