From 0792cca241a289572d03d36315b6c441326b888a Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Sat, 11 Apr 2020 09:30:23 -0700
Subject: Loop que-website threads independently

---
 Com/Simatime/Alpha.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Com')

diff --git a/Com/Simatime/Alpha.hs b/Com/Simatime/Alpha.hs
index cc3d23c..7003cc5 100644
--- a/Com/Simatime/Alpha.hs
+++ b/Com/Simatime/Alpha.hs
@@ -14,6 +14,7 @@ module Com.Simatime.Alpha
   -- * Text
   , chomp
   , lchomp
+  , joinWith
   -- * Debugging tools
   , say
   -- * TODO: remove this
@@ -76,3 +77,7 @@ chomp = Text.filter (/= '\n')
 -- | Removes newlines from lazy text.
 lchomp :: LazyText.Text -> LazyText.Text
 lchomp = LazyText.filter (/= '\n')
+
+-- | Join a list of things with a separator.
+joinWith :: [a] -> [[a]] -> [a]
+joinWith = intercalate
-- 
cgit v1.2.3