sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-28 23:54:51 +09:00
Code Issues Activity

Use 'toHtml' instead of generic markup combinator 'text'

Browse source
This commit is contained in:
fr33domlover 2016-03-07 00:39:07 +00:00
parent f876683d70
commit af86469848
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Vervis/Handler/Person.hs
View file

@ -27,7 +27,7 @@ import Vervis.Import hiding ((==.))
import Database.Esqueleto hiding (isNothing)
import Vervis.Form.Person
--import Model
import Text.Blaze (text)
import Text.Blaze.Html (toHtml)
import Yesod.Auth.HashDB (setPassword)
-- | Get list of users
@ -92,5 +92,5 @@ getPersonR ident = do
Entity _pid p <- getBy404 $ UniquePersonIdent sid
return p
defaultLayout $ do
setTitle $ text $ "Vervis > People > " <> ident
setTitle $ toHtml $ "Vervis > People > " <> ident
$(widgetFile "person")

6
src/Vervis/Handler/Project.hs
View file

@ -24,7 +24,7 @@ where
import Vervis.Import hiding ((==.))
--import Prelude
import Text.Blaze (text)
import Text.Blaze.Html (toHtml)
import Database.Esqueleto
--import Model
--import Yesod.Core (Handler)
@ -39,7 +39,7 @@ getProjectsR ident = do
orderBy [asc $ project ^. ProjectIdent]
return $ project ^. ProjectIdent
defaultLayout $ do
setTitle $ text $ "Vervis > People > " <> ident <> " > Projects"
setTitle $ toHtml $ "Vervis > People > " <> ident <> " > Projects"
$(widgetFile "projects")
postProjectsR :: Text -> Handler Html
@ -77,7 +77,7 @@ getProjectR user proj = do
Entity _pid p <- getBy404 $ UniqueProject proj sid
return p
defaultLayout $ do
setTitle $ text $ mconcat
setTitle $ toHtml $ mconcat
[ "Vervis > People > "
, user
, " > Project > "