Haskell之Yesod开发–简单网站开发(五)

设置网站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