diff --git a/web/src/Main.hs b/web/src/Main.hs
index 7e6cf78..86087cb 100644
--- a/web/src/Main.hs
+++ b/web/src/Main.hs
@@ -5,19 +5,16 @@ module Main where
 
 import           Control.Monad.IO.Class
 import qualified Data.Map                             as Map
-import qualified Data.Text                            as Text
-import           Data.Text.Lazy                       (toStrict)
 import qualified Database.SQLite.Simple               as Db
 import qualified Network.HTTP.Types.Status            as Status
 import qualified Network.Wai.Middleware.RequestLogger as RequestLogger
 import qualified Network.Wai.Middleware.Static        as Static
-import           Text.Blaze.Renderer.Text
 import           Web.Spock                            ((<//>))
 import qualified Web.Spock                            as S
 import qualified Within.DBMemorial.Post               as Post
 import qualified Within.DBMemorial.User               as User
+import Within.DBMemorial.Utils
 import qualified Within.DBMemorial.Views.Error        as ErrorView
-import qualified Within.DBMemorial.Views.Materialize  as Materialize
 import qualified Within.DBMemorial.Views.Thread       as Thread
 
 main :: IO ()
@@ -40,10 +37,10 @@ main = do
 
         -- Test routes
         S.get S.root $
-            S.html $ toStrict (renderMarkup (Materialize.render "The OP" (Post.render h user)))
+            S.html $ wrapMarkup "The OP" (Post.render h user)
 
         S.get "user" $
-            S.html $ toStrict (renderMarkup (Materialize.render "The first poster" (User.render user)))
+            S.html $ wrapMarkup "The first poster" (User.render user)
 
         -- Real routes
         S.get ("page" <//> S.var) $ \(id_ :: Int) -> do
@@ -57,9 +54,10 @@ main = do
 
                     let page = ErrorView.render ("no data for page number " ++ (show id_))
 
-                    S.html $ toStrict $ (renderMarkup (Materialize.render (Text.pack ("Can't find page " ++ (show id_))) page))
+                    S.html $ wrapMarkupStringTitle ("Can't find page " ++ (show id_)) page
+
                 _ -> do
                     let title = "Thread page " ++ (show id_)
                         page = Thread.render id_ posts userMap
 
-                    S.html $ toStrict (renderMarkup (Materialize.render (Text.pack title) page))
+                    S.html $ wrapMarkupStringTitle title page
diff --git a/web/src/Within/DBMemorial/Utils.hs b/web/src/Within/DBMemorial/Utils.hs
index 57ed3e0..d9ada97 100644
--- a/web/src/Within/DBMemorial/Utils.hs
+++ b/web/src/Within/DBMemorial/Utils.hs
@@ -1,5 +1,20 @@
 module Within.DBMemorial.Utils where
 
+import Data.Text (Text)
+import qualified Data.Text                            as Text
+import           Data.Text.Lazy                       (toStrict)
+import           Text.Blaze.Html (Html)
+import           Text.Blaze.Renderer.Text
+import qualified Within.DBMemorial.Views.Materialize  as Materialize
+
 -- https://hackage.haskell.org/package/base-4.8.0.0/docs/src/Data-Function.html#%26
 (&) :: a -> (a -> b) -> b
 x & f = f x
+
+wrapMarkup :: Text -> Html -> Text
+wrapMarkup title body =
+    toStrict $ renderMarkup $ Materialize.render title body
+
+wrapMarkupStringTitle :: String -> Html -> Text
+wrapMarkupStringTitle title body =
+        wrapMarkup (Text.pack title) body