Proof-of-concept tag module

1 files changed, 15 insertions, 0 deletions

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: