diff --git a/web/src/Main.hs b/web/src/Main.hs
index f8151c1..e00a7cc 100644
--- a/web/src/Main.hs
+++ b/web/src/Main.hs
@@ -37,10 +37,10 @@ main = do
         S.middleware $ RequestLogger.logStdout
 
         S.get S.root $
-            S.html $ toStrict (renderMarkup (Materialize.base "The OP" (Post.render h (User.render user))))
+            S.html $ toStrict (renderMarkup (Materialize.render "The OP" (Post.render h (User.render user))))
 
         S.get "user" $
-            S.html $ toStrict (renderMarkup (Materialize.base "The first poster" (User.render user)))
+            S.html $ toStrict (renderMarkup (Materialize.render "The first poster" (User.render user)))
 
         S.get ("page" <//> S.var) $ \(id_ :: Int) -> do
             posts <- liftIO $
@@ -50,4 +50,4 @@ main = do
             let title = "Thread page " ++ (show id_)
                 page = Thread.render id_ posts userMap
 
-            S.html $ toStrict (renderMarkup (Materialize.base (Text.pack title) page))
+            S.html $ toStrict (renderMarkup (Materialize.render (Text.pack title) page))
diff --git a/web/src/Within/DBMemorial/Views/Materialize.hs b/web/src/Within/DBMemorial/Views/Materialize.hs
index e5b1e42..8c11de1 100644
--- a/web/src/Within/DBMemorial/Views/Materialize.hs
+++ b/web/src/Within/DBMemorial/Views/Materialize.hs
@@ -9,8 +9,8 @@ import           Text.Blaze.Html
 import           Text.Blaze.Html5            as H
 import           Text.Blaze.Html5.Attributes as A
 
-base :: Text -> Html -> Html
-base pageTitle inner =
+render :: Text -> Html -> Html
+render pageTitle inner =
     docTypeHtml ! lang "en" $ do
       H.head $ do
         H.title $ toHtml pageTitle