diff --git a/ses-html.cabal b/ses-html.cabal
--- a/ses-html.cabal
+++ b/ses-html.cabal
@@ -1,6 +1,6 @@
 name:                ses-html
-version:             0.1.0.0
-synopsis:            Send html emails written in Haskell 
+version:             0.2.0.0
+synopsis:            Send HTML formatted emails using Amazon's SES REST API with blaze
 license:             BSD3
 license-file:        LICENSE
 author:              David Johnson
diff --git a/src/Network/SES.hs b/src/Network/SES.hs
--- a/src/Network/SES.hs
+++ b/src/Network/SES.hs
@@ -12,6 +12,7 @@
     , Region       (..)
     , SESErrorType (..)
     , SESError     (..)
+    , SESResult    (..)
     , SESErrorCode
     , SESErrorMessage
     ) where
@@ -56,6 +57,11 @@
 newtype SecretKey = SecretKey ByteString deriving (Show, Eq)
 
 ------------------------------------------------------------------------------
+-- | The result of invoking an SES action
+data SESResult = Error SESError -- ^ The encapsulated 'SESError'
+               | Success        -- ^ A successful email has been sent
+
+------------------------------------------------------------------------------
 -- | Types for AWS 'Region's
 data Region = USEast1  -- ^ US East 1 Region
             | USWest2  -- ^ US West 2 Region
@@ -91,7 +97,7 @@
     -> To        -- ^ The Email recipient
     -> Subject   -- ^ The Subject of the Email
     -> Html      -- ^ The Html of the email body
-    -> IO (Either SESError ())
+    -> IO SESResult
 sendEmailBlaze 
     publicKey
     secretKey
@@ -111,7 +117,7 @@
     -> To           -- ^ The Email recipient
     -> Subject      -- ^ The Subject of the Email
     -> L.ByteString -- ^ Raw Html 
-    -> IO (Either SESError ())
+    -> IO SESResult
 sendEmail = makeRequest 
 
 ------------------------------------------------------------------------------
@@ -162,7 +168,7 @@
     -> To           -- ^ The Email recipient
     -> Subject      -- ^ The Subject of the Email
     -> L.ByteString -- ^ Raw Html 
-    -> IO (Either SESError ())
+    -> IO SESResult
 makeRequest 
     (PublicKey publicKey)
     (SecretKey secretKey)
@@ -213,14 +219,14 @@
                                 code = let c = getFromTagSoup "Code" tags
                                        in fromMaybe UnknownErrorType (readMaybe (unpack c) :: Maybe SESErrorType)
                                 sesMsg  = getFromTagSoup "Message" tags
-                            return $ Left $ SESError (getStatusCode resp) code sesMsg
+                            return $ Error $ SESError (getStatusCode resp) code sesMsg
   where
     getFromTagSoup x tags = let [ _, TagText d] = filterFront . filterBack $ tags 
                                 filterFront = dropWhile (/=(TagOpen x [])) 
                                 filterBack  = takeWhile (/=(TagClose x))
                             in d
-    connectionError = return . Left . SESConnectionError . pack . show
-    returnSuccess   = return $ Right ()
+    connectionError = return . Error . SESConnectionError . pack . show
+    returnSuccess   = return Success
 
 ------------------------------------------------------------------------------
 -- | Digital Signature creation