1 2 3 4
module Test.VeriFuzz.Internal.Shared where fromList :: (Foldable t, Monoid a) => t a -> a fromList = foldl mappend mempty