設定網站Host

instance Yesod XXX where
    approot = ApprootStatic "http://static.example.comn/wiki"

注意：

• 使用ApprootStatic的時候，URL是不需要帶上最後的/的

• 還可以使用ApprootMaster和ApprootRequest，具體參看文件

  Url操作

• renderRoute:將一個字串分解為一個地址List

• joinPath:用4個引數來返回一個文字型的URL

joinPath

1. foundation value
2. application root
3. a list of path segments
4. a list of quert string parameters

P88頁的程式碼關於joinPath的實現就是對其本身的預設實現做了一些修改，強制追加了一個額外的空字串在每一個URL最後，這樣就強制增加了一個/在每一個URL的尾部

複製P91頁的程式碼。這裡我們需要做一些小調整

因為withUrlRenderer已經被取消，所以我們使用新的giveUrlRenderer來替代，這樣程式就可以正常運行了。

我們看到了一對新的，能夠讓我們在模版之間傳值的方式
setMessage::HTML和getMessage::IO Html