tvl-depot/src/API.hs

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeOperators #-}
--------------------------------------------------------------------------------
module API where
--------------------------------------------------------------------------------
import Data.Text
import Servant.API

import qualified Types as T
--------------------------------------------------------------------------------

type API = "user"
           :> ReqBody '[JSON] T.Account
           :> Post '[JSON] (Maybe T.Session)
      :<|> "user"
           :> Capture "name" Text
           :> Get  '[JSON] (Maybe T.Account)
      :<|> "trip"
           :> ReqBody '[JSON] T.Trip
           :> Post '[JSON] NoContent
Support a basic API Use Servant to create a REST API supporting the following routes: - GET /number - POST /other The server interacts with a SQLite database. 2020-07-24 20:00:29 +02:00			`{-# LANGUAGE DataKinds #-}`
Integrate Persistent with Servant Query my SQLite database from within my Servant handlers. Nothing I've written is domain-specific to the business logic yet -- I'm just making sure everything integrates. 2020-07-24 23:46:54 +02:00			`{-# LANGUAGE TypeOperators #-}`
Support a basic API Use Servant to create a REST API supporting the following routes: - GET /number - POST /other The server interacts with a SQLite database. 2020-07-24 20:00:29 +02:00			`--------------------------------------------------------------------------------`
			`module API where`
			`--------------------------------------------------------------------------------`
Integrate Persistent with Servant Query my SQLite database from within my Servant handlers. Nothing I've written is domain-specific to the business logic yet -- I'm just making sure everything integrates. 2020-07-24 23:46:54 +02:00			`import Data.Text`
			`import Servant.API`
Support a basic API Use Servant to create a REST API supporting the following routes: - GET /number - POST /other The server interacts with a SQLite database. 2020-07-24 20:00:29 +02:00
Integrate Persistent with Servant Query my SQLite database from within my Servant handlers. Nothing I've written is domain-specific to the business logic yet -- I'm just making sure everything integrates. 2020-07-24 23:46:54 +02:00			`import qualified Types as T`
Support a basic API Use Servant to create a REST API supporting the following routes: - GET /number - POST /other The server interacts with a SQLite database. 2020-07-24 20:00:29 +02:00			`--------------------------------------------------------------------------------`

Integrate Persistent with Servant Query my SQLite database from within my Servant handlers. Nothing I've written is domain-specific to the business logic yet -- I'm just making sure everything integrates. 2020-07-24 23:46:54 +02:00			`type API = "user"`
Change the name User to Account Next I'll need to add / remove fields from the Account type. 2020-07-25 19:18:59 +02:00			`:> ReqBody '[JSON] T.Account`
Return a Session Define the Session type and return it for the POST /user endpoint 2020-07-25 00:35:49 +02:00			`:> Post '[JSON] (Maybe T.Session)`
Integrate Persistent with Servant Query my SQLite database from within my Servant handlers. Nothing I've written is domain-specific to the business logic yet -- I'm just making sure everything integrates. 2020-07-24 23:46:54 +02:00			`:<\|> "user"`
			`:> Capture "name" Text`
Change the name User to Account Next I'll need to add / remove fields from the Account type. 2020-07-25 19:18:59 +02:00			`:> Get '[JSON] (Maybe T.Account)`
Allow API users to create Trip entries Next up: - list trips - update existing trip entries - delete existing trip entries 2020-07-28 10:10:54 +02:00			`:<\|> "trip"`
			`:> ReqBody '[JSON] T.Trip`
Prefer NoContent response to Bool When I first wrote this handler I wasn't aware of the NoContent response option. 2020-07-28 11:12:25 +02:00			`:> Post '[JSON] NoContent`