about summary refs log blame commit diff
path: root/src/API.hs
blob: f858e6d7ab53d150a408a49360c943e57e5a3c2d (plain) (tree)
1
2
3
4
5
6
7
8
9
                          
                              


                                                                                
                
                  
 
                           

                                                                                
                 
                                       
                                            

                                 
                                            


                                    
{-# 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] Bool