Clarify error message

hedgehogqa · May 19, 2023 · 291880e · 291880e
1 parent a7369cd
commit 291880e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/hedgehog/src/Hedgehog/Internal/Gen.hs b/hedgehog/src/Hedgehog/Internal/Gen.hs
@@ -1194,7 +1194,7 @@ constant =
 element :: (Foldable f, MonadGen m) => f a -> m a
 element fa = case toList fa of
   [] ->
-    error "Hedgehog.Gen.element: used with empty list"
+    error "Hedgehog.Gen.element: used with empty Foldable"
   xs -> do
     n <- integral $ Range.constant 0 (length xs - 1)
     pure $ xs !! n