11 lines
369 B
Haskell
11 lines
369 B
Haskell
module Api.Spec where
|
|
|
|
import Servant.API
|
|
import Servant.Client hiding (Request, Response)
|
|
|
|
import Api.Types
|
|
|
|
type Api = "api" :> (ReqBody '[FormUrlEncoded] GetSections :> Post '[JSON] [Section]
|
|
:<|> ReqBody '[FormUrlEncoded] GetTopics :> Post '[JSON] [TopicInfo]
|
|
:<|> ReqBody '[FormUrlEncoded] GetTopic :> Post '[JSON] Topic)
|