about summary refs log tree commit diff
path: root/src/Blog.hs
diff options
context:
space:
mode:
authorVincent Ambo <tazjin@gmail.com>2015-11-21T18·05+0100
committerVincent Ambo <tazjin@gmail.com>2015-11-21T18·05+0100
commitd7d428d597ebede6d7d423abcecb930cdca8a88c (patch)
tree68d61a6bb7dae4fd9f3f2597b899ee58f2dd0a00 /src/Blog.hs
parenta68d6cfa31ca9fa4e2773c5f3e375c21079c358b (diff)
[locale/blog] Remove other unused code
Diffstat (limited to 'src/Blog.hs')
-rw-r--r--src/Blog.hs7
1 files changed, 1 insertions, 6 deletions
diff --git a/src/Blog.hs b/src/Blog.hs
index a78b911eda16..6cc00510c0dc 100644
--- a/src/Blog.hs
+++ b/src/Blog.hs
@@ -1,7 +1,6 @@
 module Blog where
 
 import BlogDB
-import Data.List       (intersperse)
 import Data.Maybe      (fromJust)
 import Data.Text       (Text, append, empty, pack)
 import Data.Text.Lazy  (fromStrict)
@@ -13,10 +12,6 @@ import Text.Markdown
 
 import qualified Data.Text as T
 
--- custom list functions
-intersperse' :: a -> [a] -> [a]
-intersperse' sep l = sep : intersperse sep l
-
 replace :: Eq a => a -> a -> [a] -> [a]
 replace x y = map (\z -> if z == x then y else z)
 
@@ -91,7 +86,7 @@ $maybe links <- pageLinks
 |]
   where
    toDisplay = if showAll then entries else (take 6 entries)
-   linkElems Entry{..} = concat $ intersperse' "/" [show lang, show entryId]
+   linkElems Entry{..} = concat $ ["/", show lang, "/", show entryId]
 
 showLinks :: Maybe Int -> BlogLang -> Html
 showLinks (Just i) lang = [shamlet|