VS
Size: a a a
VS
AH
AH
K
AH
И
AH
AH
AH
И
SB
AH
AH
PD
type HttpFuncResult = Task<HttpContext option>Что, в целом, практически аналогично асповским миддлварям.
type HttpFunc = HttpContext -> HttpFuncResult
type HttpHandler = HttpFunc -> HttpContext -> HttpFuncResult
type WebPart<'a> = 'a -> Async<'a option>Но ведь это же жирафовский
type WebPart = WebPart<HttpContext>
HttpFunc! Не HttpHandler. Получается, у них нет next, у них всё на этом работает. Как так?AH
let myApp =
choose [
GET >=> choose
[ path "/hello" >=> OK "Hello GET" ; path "/goodbye" >=> OK "Good bye GET" ];
POST >=> choose
[ path "/hello" >=> OK "Hello POST" ; path "/goodbye" >=> OK "Good bye POST" ];
DELETE >=> choose
[ path "/hello" >=> OK "Hello DELETE" ; path "/goodbye" >=> OK "Good bye DELETE" ];
PUT >=> choose
[ path "/hello" >=> OK "Hello PUT" ; path "/goodbye" >=> OK "Good bye PUT" ];
]