4r/app/Api/Spec.hs

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)