diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -13,3 +13,9 @@
 - Performance optimizations
 - Remove `errorToIO'` and `errorToErrorIO'`
 - Rename `errorToIOThrowing` to `errorToIOAsExc` and `errorToErrorIOThrowing` to `errorToErrorIOAsExc`
+
+## 1.1.1
+
+- Performance optimizations
+- Fix tests
+- Generate labeled optics
diff --git a/src/Control/Effect/Telegraph.hs b/src/Control/Effect/Telegraph.hs
--- a/src/Control/Effect/Telegraph.hs
+++ b/src/Control/Effect/Telegraph.hs
@@ -95,18 +95,23 @@
 
 takeTS :: Eff Telegraph m => m TS
 takeTS = send TakeTS
+{-# INLINE takeTS #-}
 
 readTS :: Eff Telegraph m => m TS
 readTS = send ReadTS
+{-# INLINE readTS #-}
 
 putTS :: Eff Telegraph m => TS -> m ()
 putTS !s = send (PutTS s)
+{-# INLINE putTS #-}
 
 httpLbs :: Effs '[Http, Error HttpException] m => Request -> m (Response LBS.ByteString)
 httpLbs !r = send (HttpLbs r)
+{-# INLINE httpLbs #-}
 
 genBoundary :: Eff Http m => m ByteString
 genBoundary = send GenBoundary
+{-# INLINE genBoundary #-}
 
 -- | Telegraph state
 data TS = TS
diff --git a/src/Web/Telegraph/Types.hs b/src/Web/Telegraph/Types.hs
--- a/src/Web/Telegraph/Types.hs
+++ b/src/Web/Telegraph/Types.hs
@@ -3,6 +3,8 @@
 {-# LANGUAGE DerivingVia #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE UndecidableInstances #-}
 
 -- | Type definitions, note that all fields are strict
 module Web.Telegraph.Types where
@@ -14,6 +16,7 @@
 import Deriving.Aeson
 import Deriving.Aeson.Stock
 import Generic.Data.Surgery
+import Optics.TH
 
 -- | A Telegraph account
 data Account = Account
@@ -157,3 +160,15 @@
 
 instance Show TelegraphError where
   show (APICallFailure e) = "API call failed with error: " ++ unpack e
+
+makeFieldLabelsWith noPrefixFieldLabels ''Account
+makeFieldLabelsWith noPrefixFieldLabels ''PageList
+makeFieldLabelsWith noPrefixFieldLabels ''Page
+makeFieldLabelsWith noPrefixFieldLabels ''PageViews
+makeFieldLabelsWith noPrefixFieldLabels ''NodeElement
+makeFieldLabelsWith noPrefixFieldLabels ''Image
+makeFieldLabelsWith noPrefixFieldLabels ''UploadResult
+
+makePrismLabels ''Result
+makePrismLabels ''Node
+makePrismLabels ''UploadResult
diff --git a/telegraph.cabal b/telegraph.cabal
--- a/telegraph.cabal
+++ b/telegraph.cabal
@@ -1,6 +1,6 @@
 cabal-version:   3.0
 name:            telegraph
-version:         1.1.0
+version:         1.1.1
 synopsis:        Binding to the telegraph API
 description:     Binding to the telegraph API
 category:        Web
@@ -63,6 +63,7 @@
     , generic-data-surgery  ^>=0.3.0
     , http-conduit          ^>=2.3.7
     , mtl                   ^>=2.2.2
+    , optics-th             ^>=0.3
     , text                  ^>=1.2.4
 
   exposed-modules:
diff --git a/test/Spec.hs b/test/Spec.hs
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -13,8 +13,8 @@
 main = do
   manager <- newTlsManager
   runM $
-    errorToIOThrowing @TelegraphError $
-      errorToIOThrowing @HttpException $
+    errorToIOAsExc @TelegraphError $
+      errorToIOAsExc @HttpException $
         runReader manager $
           runTelegraph "b968da509bb76866c35425099bc0989a5ec3b32997d55286c657e6994bbb" $ do
             pl <- getPageList 0 3