about summary refs log tree commit diff
path: root/src/Main.hs
diff options
context:
space:
mode:
author"Vincent Ambo ext:(%22) <tazjin@me.com>2012-03-06T18·39+0100
committer"Vincent Ambo ext:(%22) <tazjin@me.com>2012-03-06T18·39+0100
commit8c90ebdb499be2a8bc171dad8236728399755f0c (patch)
tree29d6d041e07f94b2b4249c9417d933935a28cdac /src/Main.hs
parentd4fa02deed25fe9a4e5ad1a9088242ed1506c0ea (diff)
* TEXT EVERYWHERE, WHERE MY STRINGS AT?
Diffstat (limited to 'src/Main.hs')
-rw-r--r--src/Main.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 89f6179237f5..c851d9a05203 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -6,7 +6,8 @@ import           Control.Applicative (optional)
 import           Control.Monad (msum)
 import           Data.Monoid (mempty)
 import           Data.ByteString.Char8 (ByteString)
-import           Data.Text hiding (map, length, zip, head, drop)
+import           Data.Text (Text)
+import qualified Data.Text as T
 import           Data.Time
 import           Database.CouchDB
 import           Happstack.Server
@@ -60,7 +61,7 @@ tryEntry :: Maybe Entry -> Response
 tryEntry Nothing = toResponse $ showError NotFound
 tryEntry (Just entry) = toResponse $ blogTemplate eLang eTitle $ renderEntry entry
     where
-        eTitle = ": " ++ title entry
+        eTitle = T.pack $ ": " ++ title entry
         eLang = lang entry
 
 showIndex :: BlogLang -> ServerPart Response