From a53235285878d4199947b368ea703c30adf74710 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Fri, 25 Dec 2009 12:06:11 +0100
Subject: Some more tests. Fixed split function.

---
 src/Text/Hakyll/Util.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Text/Hakyll/Util.hs b/src/Text/Hakyll/Util.hs
index 6076dc4..7dc0ce3 100644
--- a/src/Text/Hakyll/Util.hs
+++ b/src/Text/Hakyll/Util.hs
@@ -25,4 +25,5 @@ stripHTML str = let (beforeTag, rest) = break (== '<') str
 
 -- | Split a list at a certain element.
 split :: String -> String -> [String]
-split pattern = splitRegex (mkRegex pattern)
+split pattern = filter (not . null)
+              . splitRegex (mkRegex pattern)
-- 
cgit v1.2.3