Как добавить префикс ко всем конечным точкам в Servant?

Question

У меня есть своего рода привет мир приложений в рабу Haskell, вот его часть:

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

и URL'ы, являются:

localhost/my_items 
    localhost/my_items/123 

Как я могу добавить префикс к существующим URL-адресов и другие Я создаю:

localhost/api/v1/my_items 
    localhost/api/v1/my_items/123 
    localhost/api/v1/..... 

?

Answer 1

Просто создайте другой тип:

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