{-# LANGUAGE DataKinds         #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies      #-}
{-# LANGUAGE TypeOperators     #-}

module Api (module Api,module Models) where

import           Data.Proxy
import           Data.Text
import           Models
import           Servant.API

type CouponApi =
       "coupon" :> "add" :> ReqBody '[JSON] Coupon :> Post '[JSON] (Maybe Coupon)
  :<|> "coupon" :> "get" :> Capture "name" Text  :> Get  '[JSON] (Maybe Coupon)
  :<|> "coupon" :> "del" :> Capture "name" Text  :> Get  '[JSON] (Maybe Coupon)

type BillCouponApi =
       "billcoupon" :> ReqBody '[JSON] BillCoupon :> Post '[JSON] CouponResult

type ServerApi = CouponApi :<|> BillCouponApi

api :: Proxy ServerApi
api = Proxy