8f01efd · servant · git.iko.soy

git.iko.soy/servant

on master help sign in

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

8f01efdMatthias Fischmann11 years ago

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

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

33 , embedNat

34 , squashNat

35 , generalizeNat

36−

36+ , tweakResponse

38 -- * Default error type

39 , ServantErr(..)

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

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

26 -- ^ left-biased choice between two routers

27 deriving Functor

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

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

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

31−-- codes, message bodies, etc.

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

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

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

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