diff options
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 |