8f01efd · servant · git.iko.soy

git.iko.soy/servant

Export tweakResponse from non-internal module; better haddock comment.

commit8f01efd599892692bc03b9cac99fbfe78200e16a authorMatthias Fischmann <mf@zerobuzz.net> dateMon 12 Oct 2015, 20:52 (11 years ago) parentdd1d308

2 files changed+2−4

unifiedsplit

servant-server/src/Servant/Server.hs+1−1

@@ -33,7 +33,7 @@ module Servant.Server

3333 , embedNat

3434 , squashNat

3535 , generalizeNat

36−

36+ , tweakResponse

3737

3838 -- * Default error type

3939 , ServantErr(..)

servant-server/src/Servant/Server/Internal/Router.hs+1−3

@@ -26,9 +26,7 @@ data Router' a =

2626 -- ^ left-biased choice between two routers

2727 deriving Functor

2828

29−-- | Apply a function to the result of a router in functor style. The result contains the failure

30−-- cases so one use case is to turn failures into middleware response values with appropriate status

31−-- codes, message bodies, etc.

29+-- | Apply a transformation to the response of a `Router`.

3230tweakResponse :: (RouteResult Response -> RouteResult Response) -> Router -> Router

3331tweakResponse f = fmap (\a -> \req cont -> a req (cont . f))

3432