diff options
| author | Vincent Ambo <viam@humac.com> | 2012-03-06T20·08+0100 |
|---|---|---|
| committer | Vincent Ambo <viam@humac.com> | 2012-03-06T20·08+0100 |
| commit | 91d197945f13e0cb4a7d880f0b9776ff349e53d4 (patch) | |
| tree | f31cef4d82281bc997e1e5108612febc085cd0aa /src/Main.hs | |
| parent | 0418692f07e057e2aa847fb2f5f24e6021a6073e (diff) | |
| parent | 8c90ebdb499be2a8bc171dad8236728399755f0c (diff) | |
* merged String -> Text changes
* comment field
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index f3d3db32d048..5bc2ef2ce46d 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 @@ -63,7 +64,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 |