example-server/src/API.hs · typeable/request-track

git.iko.soy/typeable/request-track

on master help sign in

13 lines 328 B history raw

1{-# LANGUAGE DataKinds #-}

2{-# LANGUAGE TypeFamilies #-}

3module API where

5import Data.Proxy

6import Servant.API

7import Web.Tracking.Servant

9type ExampleAPI = RequestTracking :> "echo" :> Get '[JSON] String

10 :<|> RequestTracking_ :> "relay" :> Get '[JSON] String

12exampleAPI :: Proxy ExampleAPI

13exampleAPI = Proxy