diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -1,5 +1,7 @@
 # tuple-classes
 
+[![Hackage](https://img.shields.io/hackage/v/tuple-classes)](https://hackage.haskell.org/package/tuple-classes)
+
 Haskell facilities for manipulating _n_-ary tuples and functions in lazy and strict varieties, plus strict tuples.
 
 ```haskell
@@ -28,6 +30,7 @@
 main :: IO ()
 main = printArgsTitleAndSum "Important identity" 26885 15184
 ```
+
 ```
 StrictTuple3 "Important identity" 26885 15184
 Important identity
@@ -39,8 +42,6 @@
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE TypeApplications #-}
 
-module DocTest02 (main) where
-
 import Data.Tuple.Classes (TupleAt(..))
 
 consTuple :: (TupleAt 1 a t u) => a -> t -> u
@@ -49,6 +50,7 @@
 main :: IO ()
 main = print $ consTuple 'x' $ consTuple False ("sequitur", "quodlibet")
 ```
+
 ```
 ('x',False,"sequitur","quodlibet")
 ```
@@ -70,7 +72,7 @@
 
 ## License
 
-[Apache 2.0](https://www.apache.org/licenses/LICENSE-2.0.html).
+[Apache 2.0](https://www.apache.org/licenses/LICENSE-2.0.html)
 
 ## Main Author
 
diff --git a/src/Data/Tuple/Classes/TH.hs b/src/Data/Tuple/Classes/TH.hs
--- a/src/Data/Tuple/Classes/TH.hs
+++ b/src/Data/Tuple/Classes/TH.hs
@@ -14,6 +14,7 @@
 import Data.Bifunctor.Swap   (Swap(..))
 import Data.Binary           (Binary(..))
 import Data.Bitraversable    (Bitraversable(..))
+import Data.Foldable         (foldl')
 import Data.Functor.Classes  (Eq1(..), Eq2(..))
 import Data.Functor.Identity (Identity(..))
 import Data.Hashable         (Hashable)
diff --git a/tuple-classes.cabal b/tuple-classes.cabal
--- a/tuple-classes.cabal
+++ b/tuple-classes.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           tuple-classes
-version:        1.0.0
+version:        1.0.1
 synopsis:       Working with n-ary tuples and functions; strict tuples
 description:    Please see the README on Codeberg at <https://codeberg.org/sjshuck/tuple-classes#readme>
 category:       data