Yesod 条件子站点

Question

我想创建我的 Yesod 网站的一部分，只有在存在某些配置设置时才应启用该部分。所以我有这样的事情（省略细节）：

data MasterData = MasterData
  { subData :: Maybe SubData
  }

data SubData = SubData { ... }

mkYesodData "SubData" [parseRoutes| ... |]

mkYesodData "MasterData" [parseRoutes|
  /sub SubsiteR SubData getSubData
|]

如果subData 是Nothing，我怎样才能让我的网站为所有以/sub 开头的网址返回HTTP 404？

Answer 1

一种方法是围绕Maybe 创建一个新类型包装器，它提供YesodSubDispatch 的实例，并让它在其参数为Nothing 时返回404。

结果证明这是一个有趣的子网站练习；你可以view the code as a Gist。一个技巧是，当您链接到该子站点时，您需要使用 OptionalRoute 包装您的构造函数。