From 9b63052148a140b8ad5fc04b996023d8b8e3796d Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Thu, 23 Dec 2010 14:31:30 +0100
Subject: Remove old code for now

---
 src/Text/Hakyll/Util.hs | 34 ----------------------------------
 1 file changed, 34 deletions(-)
 delete mode 100644 src/Text/Hakyll/Util.hs

(limited to 'src/Text/Hakyll/Util.hs')

diff --git a/src/Text/Hakyll/Util.hs b/src/Text/Hakyll/Util.hs
deleted file mode 100644
index e032c52..0000000
--- a/src/Text/Hakyll/Util.hs
+++ /dev/null
@@ -1,34 +0,0 @@
--- | Miscellaneous text manipulation functions.
-module Text.Hakyll.Util 
-    ( trim
-    , stripHtml
-    , link
-    ) where
-
-import Data.Char (isSpace)
-
-import Text.Blaze.Html5 ((!), string, stringValue, a)
-import Text.Blaze.Html5.Attributes (href)
-import Text.Blaze.Renderer.String (renderHtml)
-
--- | Trim a string (drop spaces, tabs and newlines at both sides).
-trim :: String -> String
-trim = reverse . trim' . reverse . trim'
-  where
-    trim' = dropWhile isSpace
-
--- | Strip html tags from the given string.
-stripHtml :: String -> String
-stripHtml []  = []
-stripHtml str = let (beforeTag, rest) = break (== '<') str
-                    (_, afterTag)     = break (== '>') rest
-                in beforeTag ++ stripHtml (drop 1 afterTag)
-
--- | Make a HTML link.
---
---   > link "foo" "bar.html" == "<a href='bar.html'>foo</a>"
-link :: String -- ^ Link text.
-     -> String -- ^ Link destination.
-     -> String
-link text destination = renderHtml $ a ! href (stringValue destination)
-                                       $ string text
-- 
cgit v1.2.3