From 6c53ca082f3b11c5fe4bdcb6d9b5b93ab215749e Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Sat, 1 Dec 2018 15:12:54 +0000 Subject: Add internal shared module --- src/Test/VeriFuzz/Internal/Shared.hs | 4 ++++ 1 file changed, 4 insertions(+) create mode 100644 src/Test/VeriFuzz/Internal/Shared.hs (limited to 'src/Test/VeriFuzz/Internal/Shared.hs') diff --git a/src/Test/VeriFuzz/Internal/Shared.hs b/src/Test/VeriFuzz/Internal/Shared.hs new file mode 100644 index 0000000..584ecfd --- /dev/null +++ b/src/Test/VeriFuzz/Internal/Shared.hs @@ -0,0 +1,4 @@ +module Test.VeriFuzz.Internal.Shared where + +fromList :: (Foldable t, Monoid a) => t a -> a +fromList = foldl mappend mempty -- cgit