diff options
| author | Ben Sima <ben@bsima.me> | 2020-04-11 09:30:23 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2020-04-11 09:30:23 -0700 |
| commit | 0792cca241a289572d03d36315b6c441326b888a (patch) | |
| tree | 560ed1f8dfc1768ee5eea112afe6369194953c66 /Com/Simatime/Alpha.hs | |
| parent | 3c56301c1d18417dba2f7e6cab8a0e543d0f1c9e (diff) | |
Loop que-website threads independently
Diffstat (limited to 'Com/Simatime/Alpha.hs')
| -rw-r--r-- | Com/Simatime/Alpha.hs | 5 |
1 files changed, 5 insertions, 0 deletions
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 |