diff --git a/amazonka.cabal b/amazonka.cabal
--- a/amazonka.cabal
+++ b/amazonka.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka
-version:               0.1.4
+version:               0.2.0
 synopsis:              Comprehensive Amazon Web Services SDK
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -41,7 +41,7 @@
         , Network.AWS.Internal.Retry
 
     build-depends:
-          amazonka-core     == 0.1.4.*
+          amazonka-core     == 0.2.0.*
         , base              >= 4.7     && < 5
         , bytestring        >= 0.9
         , conduit           >= 1.1     && < 1.3
@@ -49,7 +49,7 @@
         , http-conduit      >= 2.1.4   && < 2.3
         , lens              >= 4.4     && < 5
         , mmorph            >= 1       && < 2
-        , monad-control     >= 0.3.2   && < 1
+        , monad-control     >= 1
         , mtl               >= 2.2.1   && < 2.3
         , resourcet         >= 1.1     && < 1.3
         , retry             >= 0.5
diff --git a/src/Control/Monad/Trans/AWS.hs b/src/Control/Monad/Trans/AWS.hs
--- a/src/Control/Monad/Trans/AWS.hs
+++ b/src/Control/Monad/Trans/AWS.hs
@@ -172,26 +172,25 @@
     {-# INLINE liftBase #-}
 
 instance MonadTransControl AWST where
-    newtype StT AWST a = StTAWS
-        { unStTAWS :: StT (ExceptT Error) (StT (ReaderT (Env, InternalState)) a)
-        }
+    type StT AWST a =
+        StT (ExceptT Error) (StT (ReaderT (Env, InternalState)) a)
 
     liftWith f = AWST $
         liftWith $ \g ->
             liftWith $ \h ->
-                f (liftM StTAWS . h . g . unAWST)
+                f (h . g . unAWST)
     {-# INLINE liftWith #-}
 
-    restoreT = AWST . restoreT . restoreT . liftM unStTAWS
+    restoreT = AWST . restoreT . restoreT
     {-# INLINE restoreT #-}
 
 instance MonadBaseControl b m => MonadBaseControl b (AWST m) where
-    newtype StM (AWST m) a = StMAWST { unStMAWST :: ComposeSt AWST m a }
+    type StM (AWST m) a = ComposeSt AWST m a
 
-    liftBaseWith = defaultLiftBaseWith StMAWST
+    liftBaseWith = defaultLiftBaseWith
     {-# INLINE liftBaseWith #-}
 
-    restoreM = defaultRestoreM unStMAWST
+    restoreM = defaultRestoreM
     {-# INLINE restoreM #-}
 
 instance MFunctor AWST where