sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-31 07:14:50 +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 Database.Esqueleto hiding (isNothing)
import Vervis.Form.Person import Vervis.Form.Person
--import Model --import Model
import Text.Blaze (text) import Text.Blaze.Html (toHtml)
import Yesod.Auth.HashDB (setPassword) import Yesod.Auth.HashDB (setPassword)
-- | Get list of users -- | Get list of users
@ -92,5 +92,5 @@ getPersonR ident = do
Entity _pid p <- getBy404 $ UniquePersonIdent sid Entity _pid p <- getBy404 $ UniquePersonIdent sid
return p return p
defaultLayout $ do defaultLayout $ do
setTitle $ text $ "Vervis > People > " <> ident setTitle $ toHtml $ "Vervis > People > " <> ident
$(widgetFile "person") $(widgetFile "person")

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

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