Browse Source

* setting the page title

Saurabh Nanda 9 years ago
parent
commit
9ce0db4d24
1 changed files with 3 additions and 1 deletions
  1. 3 1
      frameworks/Haskell/yesod-postgres/bench/src/Main.hs

+ 3 - 1
frameworks/Haskell/yesod-postgres/bench/src/Main.hs

@@ -173,7 +173,9 @@ getFortunesR :: Handler Html
 getFortunesR = do
 getFortunesR = do
   fortunesFromDb <- runPg $ selectList [] []
   fortunesFromDb <- runPg $ selectList [] []
   let fortunes = sortBy (compare `on` fortuneMessage . entityVal) $ (Entity (toSqlKey 0) Fortune{fortuneMessage="Additional fortune added at request time."}):fortunesFromDb
   let fortunes = sortBy (compare `on` fortuneMessage . entityVal) $ (Entity (toSqlKey 0) Fortune{fortuneMessage="Additional fortune added at request time."}):fortunesFromDb
-  defaultLayout [whamlet|
+  defaultLayout $ do
+      setTitle "Fortunes"
+      [whamlet|
                       <table>
                       <table>
                         <tr>
                         <tr>
                           <th>id
                           <th>id