servant-rawm-0.1.0.0: example/Api.hs

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeOperators #-}

module Api where

import Servant.API (Get, JSON, (:>), (:<|>))

import Servant.RawM (RawM)

type Api = OtherEndpoint1 :<|> RawEndpoint :<|> OtherEndpoint2

type OtherEndpoint1 = "other-endpoint-1" :> Get '[JSON] Int

type RawEndpoint = "serve-directory" :> RawM

type OtherEndpoint2 = "other-endpoint-2" :> Get '[JSON] Int

-- | The port to run the server on.
port :: Int
port = 8201