diff options
| -rw-r--r-- | src/Blog.hs | 7 | ||||
| -rw-r--r-- | src/Server.hs | 2 |
2 files changed, 2 insertions, 7 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| diff --git a/src/Server.hs b/src/Server.hs index df8916d85d3b..373bb7d6b51f 100644 --- a/src/Server.hs +++ b/src/Server.hs @@ -149,7 +149,7 @@ updateEntry acid entryId = do , btext = nBtext , mtext = nMtext} update' acid (UpdateEntry newEntry) - seeOther (concat $ intersperse' "/" [show $ lang entry, show entryId]) + seeOther (concat $ ["/", show $ lang entry, "/", show entryId]) (toResponse ()) guardSession :: AcidState Blog -> ServerPartT IO () |