newZod.fs

let addPriceOverride (zodConfig: ZodConfigs) (toJson: IJsonSerializer): HttpHandler = ..
let updatePriceOverride (zodConfig: ZodConfigs) (toJson: IJsonSerializer): HttpHandler = ..
let cancelPriceOverride (zodConfig: ZodConfigs) (toJson: IJsonSerializer): HttpHandler = ..
let addDeal (zodConfig: ZodConfigs) (toJson: IJsonSerializer): HttpHandler = ..
let updateDeal (zodConfig: ZodConfigs) (toJson: IJsonSerializer): HttpHandler = ..
let cancelDeal (zodConfig: ZodConfigs) (toJson: IJsonSerializer): HttpHandler = ..

let zodWebApp (zodConfig: ZodConfigs) (toJson: IJsonSerializer): HttpHandler =

let addRoute path auth data=
  route path>=>jacAuthorize auth>=>routeData|>List.map (fun (m,f)->m>=> f zodConfig serializer)|>choose
  
  "

    choose [
       yield addRoute "api/v1/scheduledaction/priceoverride" "api.zod.priceoverride" 
       [
            POST,addPriceOverride 
            PUT,updatePriceOverride
       ]
       yield addRoute "api/v1/scheduledaction/priceoverride/cancel" "api.zod.priceoverride.cancel" [POST,cancelPriceOverride ]

    ]