From 664648c5f9693fa5160a5c67aeabe8a9d38df03d Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Wed, 5 Jan 2011 13:12:50 +0100
Subject: Proof-of-concept tag module

---
 src/Hakyll/Web/Util/String.hs | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'src/Hakyll/Web/Util')

diff --git a/src/Hakyll/Web/Util/String.hs b/src/Hakyll/Web/Util/String.hs
index ed8b904..0dde74a 100644
--- a/src/Hakyll/Web/Util/String.hs
+++ b/src/Hakyll/Web/Util/String.hs
@@ -3,6 +3,7 @@
 module Hakyll.Web.Util.String
     ( trim
     , replaceAll
+    , splitAll
     , toUrl
     , toSiteRoot
     ) where
@@ -35,6 +36,20 @@ replaceAll pattern f source = replaceAll' source
                 (capture, after) = splitAt l tmp
             in before ++ f capture ++ replaceAll' after
 
+-- | A simple regex split function. The resulting list will contain no empty
+-- strings.
+--
+splitAll :: String    -- ^ Pattern
+         -> String    -- ^ String to split
+         -> [String]  -- ^ Result
+splitAll pattern = filter (not . null) . splitAll'
+  where
+    splitAll' src = case listToMaybe (src =~~ pattern) of
+        Nothing     -> [src]
+        Just (o, l) ->
+            let (before, tmp) = splitAt o src
+            in before : splitAll' (drop l tmp)
+
 -- | Convert a filepath to an URL starting from the site root
 --
 -- Example:
-- 
cgit v1.2.3