diff --git a/data-effects-th.cabal b/data-effects-th.cabal
--- a/data-effects-th.cabal
+++ b/data-effects-th.cabal
@@ -1,6 +1,6 @@
 cabal-version:      3.0
 name:               data-effects-th
-version:            0.4.2.0
+version:            0.4.2.1
 
 -- A short (one-line) description of the package.
 synopsis: Template Haskell utilities for the data-effects library.
@@ -42,7 +42,7 @@
 source-repository head
     type: git
     location: https://github.com/sayo-hs/data-effects
-    tag: v0.4.2.0
+    tag: v0.4.2.1
     subdir: data-effects-th
 
 library
@@ -72,7 +72,6 @@
         text                    >= 2.0 && < 2.2,
         data-default            >= 0.7.1 && < 0.9,
         infinite-list           ^>= 0.1.1,
-        formatting              ^>= 7.2.0,
 
     hs-source-dirs:   src
     ghc-options:      -Wall
diff --git a/src/Data/Effect/HFunctor/TH/Internal.hs b/src/Data/Effect/HFunctor/TH/Internal.hs
--- a/src/Data/Effect/HFunctor/TH/Internal.hs
+++ b/src/Data/Effect/HFunctor/TH/Internal.hs
@@ -71,7 +71,6 @@
 import Data.List.Infinite (Infinite, prependList)
 import Data.Maybe (fromMaybe)
 import Data.Text qualified as T
-import Formatting (int, sformat, shown, stext, (%))
 import Language.Haskell.TH (
     Body (NormalB),
     Clause (Clause),
@@ -175,18 +174,13 @@
             map (pure . tyVarType) hfArgs
                 `prependList` error
                     ( T.unpack $
-                        sformat
-                            ( "Too many data type arguments in use. The number of usable type arguments in the data type ‘"
-                                % shown
-                                % "’ to be derived is "
-                                % int
-                                % ". ("
-                                % stext
-                                % ")"
-                            )
-                            name
-                            (length hfArgs)
-                            (T.intercalate ", " $ map ((\t -> "‘" <> t <> "’") . T.pack . nameBase . tyVarName) hfArgs)
+                        "Too many data type arguments in use. The number of usable type arguments in the data type ‘"
+                            <> T.pack (nameBase name)
+                            <> "’ to be derived is "
+                            <> T.pack (show $ length hfArgs)
+                            <> ". ("
+                            <> T.intercalate ", " (map ((\t -> "‘" <> t <> "’") . T.pack . nameBase . tyVarName) hfArgs)
+                            <> ")"
                     )
 
     hfmapClauses <- mapM hfmapClause cons