如何为Servant中的所有端点添加前缀？

Question

我在Haskell仆人中有一个你好世界的应用程序，这是它的一部分：

fd=1d3

并且网址是：

fd=1d7d7

如何为现有网址和我将创建的其他网址添加前缀：

type API = 
  "my_items" :> Get '[JSON] [MyItem]
  :<|> "my_items" :> Capture "id" Int :> Get '[JSON] MyItem
  -- ...................

Answer 1

只需创建另一种类型：

type APIv1 = "api" :> "v1" :> API