λ
Size: a a a
AV
handler context' = FooApi
{ _subAp = toServant (handleSub context)
, _foo = fooImpl (addNamespace "foo" context)
}
context= addNamespace "foo" context'
AV
MK
AV
addContext "foo" >> handleRest
AV
AV
λ
type Middleware = Application -> Application
?AV
λ
handler context' = FooApi
{ _subAp = toServant (handleSub context)
, _foo = fooImpl (addNamespace "foo" context)
}
context= addNamespace "foo" context'
λ
AV
AV
AV