dmjio
11/10/2015 - 3:35 AM

gistfile1.txt

import Servant                                                                                                                                                                    
                                                                                                                                                                                  
type ConfirmationAPI =                                                                                                                                                            
      "confirmation" :> Post '[JSON] ()                                                                                                                                           
 :<|> "confirmation" :> Capture "confirmationid" :> Get '[JSON] ()                                                                                                                
                                                                                                                                                                                  
type PasswordAPI =                                                                                                                                                                
       "password" :> "recovery" :> Capture "name" Name :> Post '[JSON] ()                                                                                                         
  :<|> "password" :> "recovery" :> Capture "resetid" :> ResetId :> Post '[JSON] ()                                                                                                
                                                                                                                                                                                  
type HealthAPI = "health" :> Get '[JSON] Health                                                                                                                                   
type VersionAPI = "version" :> Get '[JSON] Version                                                                                                                                
                                                                                                                                                                                  
type UserAPI =                                                                                                                                                                    
       "user" :> Put '[JSON] User                                                                                                                                                 
  :<|> "user" :> "login" :> Post '[JSON] UserProfile                                                                                                                              
  :<|> "user" :> "profile" :> Get '[JSON] UserProfile                                                                                                                             
  :<|> "user" :> "profile" :> Put '[JSON] UserProfile                                                                                                                             
  :<|> "user" :> "profile" :> Capture "userid" UserId :> Get '[JSON] UserProfile                                                                                                  
  :<|> "user" :> "profile" :> "name" :> Capture "userid" UserId :> Get '[JSON] UserProfile