made simpleAws much simpler

Aws/Aws.hs

@@ -133,8 +133,6 @@ awsRef = unsafeAwsRef
 -- 
 -- Note that this is potentially less efficient than using 'aws', because HTTP connections cannot be re-used.
 -- 
--- All errors are caught and wrapped in the 'Response' value.
--- 
 -- Usage:
 -- @
 --     resp <- simpleAws cfg serviceCfg request
@@ -143,12 +141,10 @@ simpleAws :: (Transaction r a, AsMemoryResponse a, MonadIO io)
             => Configuration 
             -> ServiceConfiguration r NormalQuery
             -> r 
-            -> io (Response (ResponseMetadata a) (MemoryResponse a))
-simpleAws cfg scfg request = liftIO $ HTTP.withManager $ \manager -> do
-                               Response m x <- aws cfg scfg manager request
-                               Response m <$> case x of
-                                   Failure f -> return (Failure f)
-                                   Success a -> Success <$> loadToMemory a
+            -> io (MemoryResponse a)
+simpleAws cfg scfg request
+  = liftIO $ HTTP.withManager $ \manager ->
+      loadToMemory =<< readResponseIO =<< aws cfg scfg manager request
 
 -- | Run an AWS transaction, /without/ HTTP manager and with metadata returned in an 'IORef'.
 -- 

Examples/SimpleDb.hs

@@ -1,7 +1,5 @@
 import qualified Aws
 import qualified Aws.SimpleDb      as Sdb
-import           Data.Attempt
-import           Control.Exception
 import qualified Data.Text         as T
 import qualified Data.Text.IO      as T
 
@@ -15,11 +13,8 @@ main = do
 
   {- Make request -}
   let req = Sdb.listDomains { Sdb.ldMaxNumberOfDomains = Just 10 }
-  Aws.Response _metadata resp <- Aws.simpleAws cfg sdbCfg req
+  Sdb.ListDomainsResponse names _token <- Aws.simpleAws cfg sdbCfg req
 
   {- Analyze response -}
-  case resp of
-    Success (Sdb.ListDomainsResponse names _token) -> do
-      putStrLn "First 10 domains:"
-      mapM_ (T.putStrLn . T.cons '\t') names
-    Failure err -> print (toException err)
+  putStrLn "First 10 domains:"
+  mapM_ (T.putStrLn . T.cons '\t') names