From f4cdf79bd4a75e9eafe68b9a908f4cc68682b7ef Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Tue, 5 Apr 2022 21:39:55 +0200
Subject: boom

---
 src/Data/Monoid/Extra.hs | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 src/Data/Monoid/Extra.hs

(limited to 'src/Data/Monoid/Extra.hs')

diff --git a/src/Data/Monoid/Extra.hs b/src/Data/Monoid/Extra.hs
new file mode 100644
index 0000000..e484cf0
--- /dev/null
+++ b/src/Data/Monoid/Extra.hs
@@ -0,0 +1,6 @@
+module Data.Monoid.Extra where
+
+
+mintercalate :: Monoid b => b -> [b] -> b
+mintercalate c (h:t) = foldl (\acc x -> acc <> c <> x) h t
+mintercalate _ [] = mempty
-- 
cgit v1.2.3