How to add a prefix to all endpoints in Servant?

Question

I have a hello world application in Haskell servant, here is part of it:

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

and URL:

  localhost/my_items
  localhost/my_items/123

How to add a prefix to existing URLs and others that I will create:

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

?

+4

Alan coromano Mar 27 '16 at 4:19

1 answer

Sibi · Accepted Answer · 2016-03-27T04:38:53+0000

Just create another type:

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