string-combinators 0.3 → 0.4

raw patch · 2 files changed

+19/−6 lines, 2 files

Files

• Data/String/Combinators.hs +18/−5
• string-combinators.cabal +1/−1

@@ -23,6 +23,7 @@     , mid     , (<+>)     , ($$)+    , intercalate     , hcat     , hsep     , vcat@@ -103,21 +104,33 @@ infixl 6 <+> infixl 5 $$ +-- | Combine the string-likes with a given function.+intercalate :: Monoid s => (s -> s -> s) -> [s] -> s+intercalate f = go+    where+      go []     = mempty+      go (s:[]) = s+      go (s:ss) = s `f` go ss+ -- | List version of '<>'.+--+-- Note that @hcat = 'intercalate' ('<>')@. hcat :: Monoid s => [s] -> s-hcat = foldr (<>) mempty+hcat = intercalate (<>)  -- | List version of '<+>'.+--+-- Note that @hsep = 'intercalate' ('<+>')@. hsep :: (Monoid s, IsString s) => [s] -> s-hsep = foldr (<+>) mempty+hsep = intercalate (<+>)  -- | List version of '$$'. vcat :: (Monoid s, IsString s) =>  [s] -> s vcat = foldr ($$) mempty --- | @punctuate p [d1, ... dn] = [d1 \<> p, d2 \<> p, ... dn-1 \<> p, dn]@.---- Shamelessly copied from 'pretty':+-- | @punctuate p [d1, ... dn] = [d1 '<>' p, d2 '<>' p, ... dn-1 '<>' p, dn]@.+--+-- Idea and implementation taken from 'pretty': punctuate :: (Monoid s) => s -> [s] -> [s] punctuate _ []     = [] punctuate p (d:ds) = go d ds

@@ -1,5 +1,5 @@ Name:                   string-combinators-Version:                0.3+Version:                0.4 Synopsis:               Polymorphic functions to build and combine stringlike values Description:            string-combinators provides handy polymorphic functions                         to build and combine string-like values.