YS
Size: a a a
YS
A
foo :: Application
foo = addHeadersMiddleware \req respond -> do
...
bar
where
bar = respond $ responseStream blah blah ...
YS
YS
where
респонс не добавляются потом заголовки в addHeadersMiddleware
YS
where
- то заголовки добавляютсяYS
YS
AA
-.
так чтобы писать: f a b -: g c -: k l -.
-> f a b -: (g c -: ( (-.) k l))
AV
AA
AV
AV
AV
YS
YS
YS
YS