28 lines
675 B
Haskell
28 lines
675 B
Haskell
{-# LANGUAGE DataKinds #-}
|
|
{-# LANGUAGE TypeOperators #-}
|
|
{-# LANGUAGE DeriveGeneric #-}
|
|
|
|
module Soostone.API where
|
|
|
|
import Soostone.Types
|
|
|
|
import Servant
|
|
import Servant.API.Generic
|
|
|
|
|
|
type SoostoneAPI = NamedRoutes API
|
|
type APIVersion = "v1"
|
|
|
|
data API mode = API {
|
|
mainAPI :: mode :- "api" :> APIVersion :> NamedRoutes MainAPI
|
|
} deriving Generic
|
|
|
|
data MainAPI mode = MainAPI {
|
|
submitKey :: mode :- "input" :> ReqBody '[JSON] Key :> Post '[JSON] ()
|
|
, countKey :: mode :- "query" :> QueryParam' '[Required, Strict] "key" Key :> Get '[JSON] Count
|
|
} deriving Generic
|
|
|
|
api :: Proxy SoostoneAPI
|
|
api = Proxy :: Proxy SoostoneAPI
|
|
|