diff options
Diffstat (limited to 'src/Text/Hakyll/Util.hs')
-rw-r--r-- | src/Text/Hakyll/Util.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/Text/Hakyll/Util.hs b/src/Text/Hakyll/Util.hs index 84d6257..e032c52 100644 --- a/src/Text/Hakyll/Util.hs +++ b/src/Text/Hakyll/Util.hs @@ -22,11 +22,7 @@ stripHtml :: String -> String stripHtml [] = [] stripHtml str = let (beforeTag, rest) = break (== '<') str (_, afterTag) = break (== '>') rest - in beforeTag ++ stripHtml (tail' afterTag) - where - -- We need a failsafe tail function. - tail' [] = [] - tail' xs = tail xs + in beforeTag ++ stripHtml (drop 1 afterTag) -- | Make a HTML link. -- |