diff --git a/src/Vervis/Handler/Person.hs b/src/Vervis/Handler/Person.hs
index 116bf21..3046a36 100644
--- a/src/Vervis/Handler/Person.hs
+++ b/src/Vervis/Handler/Person.hs
@@ -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")
diff --git a/src/Vervis/Handler/Project.hs b/src/Vervis/Handler/Project.hs
index 18c110f..6a99990 100644
--- a/src/Vervis/Handler/Project.hs
+++ b/src/Vervis/Handler/Project.hs
@@ -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 > "