diff --git a/groups.cabal b/groups.cabal
--- a/groups.cabal
+++ b/groups.cabal
@@ -1,6 +1,6 @@
 cabal-version:       2.4
 name:                groups
-version:             0.5.2
+version:             0.5.3
 synopsis:            Groups
 description:
   A group is a monoid with invertibility.
diff --git a/src/Data/Group.hs b/src/Data/Group.hs
--- a/src/Data/Group.hs
+++ b/src/Data/Group.hs
@@ -148,7 +148,7 @@
 generated' = unfoldr go (generator, 0 :: Integer)
   where
     go (a, n)
-      | a == mempty, n > 0 = Nothing
+      | a == generator, n > 0 = Nothing
       | otherwise = Just (a, (a <> generator, succ n))
 
 instance Cyclic () where