maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* merged String -> Text changes

Browse source 
* comment field
This commit is contained in:
Vincent Ambo 2012-03-06 21:08:36 +01:00
commit 91d197945f
2 changed files with 30 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Main.hs
View file

@ -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