Update Gen.hs

hedgehogqa · May 19, 2023 · a7369cd · a7369cd
1 parent b22b0fb
commit a7369cd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/hedgehog/src/Hedgehog/Internal/Gen.hs b/hedgehog/src/Hedgehog/Internal/Gen.hs
@@ -1192,12 +1192,12 @@ constant =
 --   /The input list must be non-empty./
 --
 element :: (Foldable f, MonadGen m) => f a -> m a
-element = \case
+element fa = case toList fa of
   [] ->
     error "Hedgehog.Gen.element: used with empty list"
   xs -> do
     n <- integral $ Range.constant 0 (length xs - 1)
-    pure $ toList xs !! n
+    pure $ xs !! n
 
 -- | Randomly selects one of the elements in the list.
 --