!g      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~  Safe&'.=>?@AHUVX,servant-serveryNormally context entries are accessed by their types. In case you need to have multiple values of the same type in your  & and need to access them, we provide -. You can think of it as sub-namespaces for  s. servant-server0This class is used to access context entries in  s.  1 returns the first value where the type matches:7getContextEntry (True :. False :. EmptyContext) :: BoolTrueIf the  G does not contain an entry of the requested type, you'll get an error:9getContextEntry (True :. False :. EmptyContext) :: String.../...No instance for (HasContextEntry '[] [Char])... servant-server 4s are used to pass values to combinators. (They are nota meant to be used to pass parameters to your handlers, i.e. they should not replace any custom %-monad-stack that you're using with  hoistServerT.) If you don't use combinators that require any context entries, you can just use  as always.6If you are using combinators that require a non-empty   you have to use  and pass it a  8 that contains all the values your combinators need. A  [ is essentially a heterogenous list and accessing the elements is being done by type (see  ). The parameter of the type  Z is a type-level list reflecting the types of the contained context entries. To create a  ! with entries, use the operator ( ): :type True :. () :. EmptyContext1True :. () :. EmptyContext :: Context '[Bool, ()]servant-server allows you to access Qs. Usually you won't have to use it yourself but instead use a combinator like . This is how  works::set -XFlexibleContexts%let subContext = True :. EmptyContext:type subContextsubContext :: Context '[Bool]klet parentContext = False :. (NamedContext subContext :: NamedContext "subContext" '[Bool]) :. EmptyContext:type parentContextCparentContext :: Context '[Bool, NamedContext "subContext" '[Bool]]VdescendIntoNamedContext (Proxy :: Proxy "subContext") parentContext :: Context '[Bool]True :. EmptyContext   5None"#2x servant-server Multiple ChoicesExample: afailingHandler :: Handler () failingHandler = throwError $ err300 { errBody = "I can't choose." }servant-server Moved PermanentlyExample: ?failingHandler :: Handler () failingHandler = throwError err301servant-server FoundExample: ?failingHandler :: Handler () failingHandler = throwError err302servant-server See OtherExample: ?failingHandler :: Handler () failingHandler = throwError err303 servant-server  Not ModifiedExample: ?failingHandler :: Handler () failingHandler = throwError err304!servant-server! Use ProxyExample: ?failingHandler :: Handler () failingHandler = throwError err305"servant-server" Temporary RedirectExample: ?failingHandler :: Handler () failingHandler = throwError err307#servant-server# Bad RequestExample: tfailingHandler :: Handler () failingHandler = throwError $ err400 { errBody = "Your request makes no sense to me." }$servant-server$ UnauthorizedExample: ofailingHandler :: Handler () failingHandler = throwError $ err401 { errBody = "Your credentials are invalid." }%servant-server% Payment RequiredExample: yfailingHandler :: Handler () failingHandler = throwError $ err402 { errBody = "You have 0 credits. Please give me $$$." }&servant-server& ForbiddenExample: efailingHandler :: Handler () failingHandler = throwError $ err403 { errBody = "Please login first." }'servant-server' Not FoundExample: `failingHandler :: Handler () failingHandler = throwError $ err404 { errBody = "(%o% %o5 %;%%;)." }(servant-server( Method Not AllowedExample: failingHandler :: Handler () failingHandler = throwError $ err405 { errBody = "Your account privileges does not allow for this. Please pay $$$." })servant-server) Not AcceptableExample: ?failingHandler :: Handler () failingHandler = throwError err406*servant-server* Proxy Authentication RequiredExample: ?failingHandler :: Handler () failingHandler = throwError err407+servant-server+ ConflictExample: failingHandler :: Handler () failingHandler = throwError $ err409 { errBody = "Transaction conflicts with 59879cb56c7c159231eeacdd503d755f7e835f74" },servant-server, GoneExample: failingHandler :: Handler () failingHandler = throwError $ err410 { errBody = "I know it was here at some point, but.. I blame bad luck." }-servant-server- Length RequiredExample: ?failingHandler :: Handler () failingHandler = throwError err411.servant-server. Precondition FailedExample: ufailingHandler :: Handler () failingHandler = throwError $ err412 { errBody = "Precondition fail: x < 42 && y > 57" }/servant-server/ Request Entity Too LargeExample: gfailingHandler :: Handler () failingHandler = throwError $ err413 { errBody = "Request exceeded 64k." }0servant-server0 Request-URI Too LargeExample: gfailingHandler :: Handler () failingHandler = throwError $ err414 { errBody = "Maximum length is 64." }1servant-server1 Unsupported Media TypeExample: rfailingHandler :: Handler () failingHandler = throwError $ err415 { errBody = "Supported media types: gif, png" }2servant-server2 Request range not satisfiableExample: mfailingHandler :: Handler () failingHandler = throwError $ err416 { errBody = "Valid range is [0, 424242]." }3servant-server3 Expectation FailedExample: failingHandler :: Handler () failingHandler = throwError $ err417 { errBody = "I found a quux in the request. This isn't going to work." }4servant-server4 Expectation FailedExample: failingHandler :: Handler () failingHandler = throwError $ err418 { errBody = "Apologies, this is not a webserver but a teapot." }5servant-server5 Unprocessable EntityExample: failingHandler :: Handler () failingHandler = throwError $ err422 { errBody = "I understood your request, but can't process it." }6servant-server6 Internal Server ErrorExample: failingHandler :: Handler () failingHandler = throwError $ err500 { errBody = "Exception in module A.B.C:55. Have a great day!" }7servant-server7 Not ImplementedExample: failingHandler :: Handler () failingHandler = throwError $ err501 { errBody = "/v1/foo is not supported with quux in the request." }8servant-server8 Bad GatewayExample: failingHandler :: Handler () failingHandler = throwError $ err502 { errBody = "Tried gateway foo, bar, and baz. None responded." }9servant-server9 Service UnavailableExample: ifailingHandler :: Handler () failingHandler = throwError $ err503 { errBody = "We're rewriting in PHP." }:servant-server: Gateway Time-outExample: ~failingHandler :: Handler () failingHandler = throwError $ err504 { errBody = "Backend foobar did not respond in 5 seconds." };servant-server; HTTP Version not supportedExample usage: jfailingHandler :: Handler () failingHandler = throwError $ err505 { errBody = "I support HTTP/4.0 only." }' !"#$%&'()*+,-./0123456789:;' !"#$%&'()*+,-./0123456789:;None 4=?@AHV|Cservant-server8The result of matching against a path in the route tree.Dservant-server Keep trying other paths. The  ServantError should only be 404, 405 or 406.Eservant-serverDon't try other paths.@ABCFEDCFED@ABNone~Vservant-serverthe request, the field pathInfo may be modified by url routingVWVWNone&'4 Xservant-servertDatatype used for representing and debugging the structure of a router. Abstracts from the handlers at the leaves.Two c3s can be structurally compared by computing their X using g% and then testing for equality, see h.]servant-server$Internal representation of a router.The first argument describes an environment type that is expected as extra input by the routers at the leaves. The environment is filled while running the router, with path components that can be used to process captures.^servant-serverthe map contains routers for subpaths (first path component used for lookup and removed afterwards), the list contains handlers for the empty path, to be tried in order_servant-server_first path component is passed to the child router in its environment and removed afterwards`servant-servercall path components are passed to the child router in its environment and are removed afterwardsaservant-server3to be used for routes we do not know anything aboutbservant-server&left-biased choice between two routersdservant-server5Smart constructor for a single static path component.eservant-serverJSmart constructor for a leaf, i.e., a router that expects the empty path.fservant-server]Smart constructor for the choice between routers. We currently optimize the following cases:_Two static routers can be joined by joining their maps and concatenating their leaf-lists.=Two dynamic routers can be joined by joining their codomains.Choice nodes can be reordered.gservant-server"Compute the structure of a router.2Assumes that the request or text being passed in  WithRequest or _7 does not affect the structure of the underlying tree.hservant-server%Compare the structure of two routers.iservant-server?Provide a textual representation of the structure of a router.jservant-server,Apply a transformation to the response of a c.kservant-server%Interpret a router as an application.mservant-serverTry a list of routing applications in order. We stop as soon as one fails fatally or succeeds. If all fail normally, we pick the "best" error.X\[ZY]ba`_^cdefghijklmnc]ba`_^defX\[ZYghijklmnNone 7@AHMVCrsturstu None@AHMVservant-serverComputations used in a Delayed can depend on the incoming , may perform , and result in a C[, meaning they can either suceed, fail (with the possibility to recover), or fail fatally.servant-server Fail with the option to recover.servant-server2Fail fatally, i.e., without any option to recover.servant-server$Gain access to the incoming request. None"#&'=?@AHUV servant-serverA Y is a representation of a handler with scheduled delayed checks that can trigger errors."Why would we want to delay checks?There are two reasons: In a straight-forward implementation, the order in which we perform checks will determine the error we generate. This is because once an error occurs, we would abort and not perform any subsequent checks, but rather return the current error.This is not a necessity: we could continue doing other checks, and choose the preferred error. However, that would in general mean more checking, which leads us to the other reason. ZWe really want to avoid doing certain checks too early. For example, captures involve parsing, and are much more costly than static route matches. In particular, if several paths contain the "same" capture, we'd like as much as possible to avoid trying the same parse many times. Also tricky is the request body. Again, this involves parsing, but also, WAI makes obtaining the request body a side-effecting operation. We could/can work around this by manually caching the request body, but we'd rather keep the number of times we actually try to decode the request body to an absolute minimum.DWe prefer to have the following relative priorities of error codes: l404 405 (bad method) 401 (unauthorized) 415 (unsupported media type) 406 (not acceptable) 400 (bad request) fTherefore, while routing, we delay most checks so that they will ultimately occur in the right order.A @ contains many delayed blocks of tests, and the actual handler: Delayed captures. These can actually cause 404, and while they're costly, they should be done first among the delayed checks (at least as long as we do not decouple the check order from the error reporting, see above). Delayed captures can provide inputs to the actual handler.Method check(s). This can cause a 405. On success, it does not provide an input for the handler. Method checks are comparatively cheap.*Authentication checks. This can cause 401.RAccept and content type header checks. These checks can cause 415 and 406 errors.Query parameter checks. They require parsing and can cause 400 if the parsing fails. Query parameter checks provide inputs to the handlerLHeader Checks. They also require parsing and can cause 400 if parsing fails.1Body check. The request body check can cause 400.servant-serverA  without any stored checks.servant-server.Add a capture to the end of the capture block.servant-server4Add a parameter check to the end of the params blockservant-server4Add a parameter check to the end of the params blockservant-server2Add a method check to the end of the method block.servant-server/Add an auth check to the end of the auth block.servant-server;Add a content type and body checks around parameter checks.We'll report failed content type check (415), before trying to parse query parameters (400). Which, in turn, happens before request body parsing.servant-serverAdd an accept header check before handling parameters. In principle, we'd like to take a bad body (400) response take precedence over a failed accept check (406). BUT to allow streaming the body, we cannot run the body check and then still backtrack. We therefore do the accept check before the body check, when we can still backtrack. There are other solutions to this, but they'd be more complicated (such as delaying the body check further so that it can still be run in a situation where we'd otherwise report 406).servant-serveryMany combinators extract information that is passed to the handler without the possibility of failure. In such a case,  can be used.servant-serverRun a delayed server. Performs all scheduled operations in order, and passes the results from the capture and body blocks on to the actual handler.wThis should only be called once per request; otherwise the guarantees about effect and HTTP error ordering break down.servant-serverRuns a delayed server and the resulting action. Takes a continuation that lets us send a response. Also takes a continuation for how to turn the result of the delayed server into a response.servant-servercontent type checkservant-server body check None247Uservant-server:Datatype wrapping a function used to check authentication.servant-serverservant-server's current implementation of basic authentication is not immune to certian kinds of timing attacks. Decoding payloads does not take a fixed amount of time.*The result of authentication/authorizationservant-server.Internal method to make a basic-auth challengeservant-serverFind and decode an  Authorization& header from the request as Basic Authservant-serverWRun and check basic authentication, returning the appropriate http error per the spec. None,-.2=>?@AHPSUVXcservant-server>Singleton type representing a server that serves an empty API.servant-server Server for servant-serverBasic Authenticationservant-serverIgnore   in server handlers.servant-serverIgnore   in server handlers.servant-server+Make sure the incoming request starts with "/path"5, strip it and pass the rest of the request path to api.servant-server If you use ReqBody in one of the endpoints for your API, this automatically requires your server-side handler to be a function that takes an argument of the type specified by ReqBody. The  Content-Typep header is inspected, and the list provided is used to attempt deserialization. If the request does not have a  Content-Type header, it is treated as application/octet-stream (as specified in  2http://tools.ietf.org/html/rfc7231#section-3.1.1.5RFC7231u. This lets servant worry about extracting it from the request and turning it into a value of the type you specify.All it asks is for a FromJSON instance.Example: type MyApi = "books" :> ReqBody '[JSON] Book :> Post '[JSON] Book server :: Server MyApi server = postBook where postBook :: Book -> Handler Book postBook book = ...insert into your db...servant-serverKJust pass the request to the underlying application and serve its response.Example: ^type MyApi = "images" :> Raw server :: Server MyApi server = serveDirectory "/var/www/images"servant-server If you use   "published" in one of the endpoints for your API, this automatically requires your server-side handler to be a function that takes an argument of type  .Example: type MyApi = "books" :> QueryFlag "published" :> Get '[JSON] [Book] server :: Server MyApi server = getBooks where getBooks :: Bool -> Handler [Book] getBooks onlyPublished = ...return all books, or only the ones that are already published, depending on the argument...servant-server If you use   "authors" Text in one of the endpoints for your API, this automatically requires your server-side handler to be a function that takes an argument of type [].]This lets servant worry about looking up 0 or more values in the query string associated to authors@ and turning each of them into a value of the type you specify.=You can control how the individual values are converted from 2 to your type by simply providing an instance of  for your type.Example: type MyApi = "books" :> QueryParams "authors" Text :> Get '[JSON] [Book] server :: Server MyApi server = getBooksBy where getBooksBy :: [Text] -> Handler [Book] getBooksBy authors = ...return all books by these authors...servant-server If you use  QueryParam "author" Text in one of the endpoints for your API, this automatically requires your server-side handler to be a function that takes an argument of type  .This lets servant worry about looking it up in the query string and turning it into a value of the type you specify, enclosed in ?, because it may not be there and servant would then hand you .,You can control how it'll be converted from 2 to your type by simply providing an instance of  for your type.Example: )type MyApi = "books" :> QueryParam "author" Text :> Get '[JSON] [Book] server :: Server MyApi server = getBooksBy where getBooksBy :: Maybe Text -> Handler [Book] getBooksBy Nothing = ...return all books... getBooksBy (Just author) = ...return books by the given author...servant-server If you use Header in one of the endpoints for your API, this automatically requires your server-side handler to be a function that takes an argument of the type specified by Headeru. This lets servant worry about extracting it from the request and turning it into a value of the type you specify.All it asks is for a  instance.Example: Gnewtype Referer = Referer Text deriving (Eq, Show, FromHttpApiData) -- GET /view-my-referer type MyApi = "view-my-referer" :> Header "Referer" Referer :> Get '[JSON] Referer server :: Server MyApi server = viewReferer where viewReferer :: Referer -> Handler referer viewReferer referer = return refererservant-server If you use  in one of the endpoints for your API, this automatically requires your server-side handler to be a function that takes an argument of a list of the type specified by the r. This lets servant worry about getting values from the URL and turning them into values of the type you specify..You can control how they'll be converted from 2 to your type by simply providing an instance of  for your type.Example: type MyApi = "src" :> CaptureAll "segments" Text :> Get '[JSON] SourceFile server :: Server MyApi server = getSourceFile where getSourceFile :: [Text] -> Handler Book getSourceFile pathSegments = ...servant-server If you use Capture in one of the endpoints for your API, this automatically requires your server-side handler to be a function that takes an argument of the type specified by the Capturen. This lets servant worry about getting it from the URL and turning it into a value of the type you specify.,You can control how it'll be converted from 2 to your type by simply providing an instance of  for your type.Example: type MyApi = "books" :> Capture "isbn" Text :> Get '[JSON] Book server :: Server MyApi server = getBook where getBook :: Text -> Handler Book getBook isbn = ...servant-server A server for a  bF first tries to match the request against the route represented by a and if it fails tries b7. You must provide a request handler for each route. type MyApi = "books" :> Get '[JSON] [Book] -- GET /books :<|> "books" :> ReqBody Book :> Post '[JSON] Book -- POST /books server :: Server MyApi server = listAllBooks :<|> postBook where listAllBooks = ... postBook book = ...servant-serverThe server for an  is emptyAPIServer. Rtype MyApi = "nothing" :> EmptyApi server :: Server MyApi server = emptyAPIServerservant-serverYThis instance catches mistakes when there are non-saturated type applications on LHS of .Gserve (Proxy :: Proxy (Capture "foo" :> Get '[JSON] Int)) (error "...")...J...Expected something of kind Symbol or *, got: k -> l on the LHS of ':>'.0...Maybe you haven't applied enough arguments to...Capture' '[] "foo"...6undefined :: Server (Capture "foo" :> Get '[JSON] Int)...J...Expected something of kind Symbol or *, got: k -> l on the LHS of ':>'.0...Maybe you haven't applied enough arguments to...Capture' '[] "foo"...servant-server/This instance prevents from accidentally using '->' instead of Kserve (Proxy :: Proxy (Capture "foo" Int -> Get '[JSON] Int)) (error "...")..."...No instance HasServer (a -> b).3...Maybe you have used '->' instead of ':>' between...Capture' '[] "foo" Int...and...Verb 'GET 200 '[JSON] Int...:undefined :: Server (Capture "foo" Int -> Get '[JSON] Int)..."...No instance HasServer (a -> b).3...Maybe you have used '->' instead of ':>' between...Capture' '[] "foo" Int...and...Verb 'GET 200 '[JSON] Int...  !"#$%&'()*+,-./0123456789:;@ABCDEFVWXYZ[\]^_`abcdefghijklmnrstuNone ,.>HSVXservant-server2 allows you to implement an API and produce a wai .Example: type MyApi = "books" :> Get '[JSON] [Book] -- GET /books :<|> "books" :> ReqBody '[JSON] Book :> Post '[JSON] Book -- POST /books server :: Server MyApi server = listAllBooks :<|> postBook where listAllBooks = ... postBook book = ... myApi :: Proxy MyApi myApi = Proxy app :: Application app = serve myApi server main :: IO () main = Network.Wai.Handler.Warp.run 8080 appservant-serverHoist server implementation.Sometimes our cherished rl monad isn't quite the type you'd like for your handlers. Maybe you want to thread some configuration in a ReaderL monad. Or have your types ensure that your handlers don't do any IO. Use  (a successor of now deprecated enter).With t, you can provide a function, to convert any number of endpoints from one type constructor to another. For exampleNote:  Raw* can also be entered. It will be retagged.import Control.Monad.Readeratype ReaderAPI = "ep1" :> Get '[JSON] Int :<|> "ep2" :> Get '[JSON] String :<|> Raw :<|> EmptyAPI(let readerApi = Proxy :: Proxy ReaderAPI~let readerServer = return 1797 :<|> ask :<|> Tagged (error "raw server") :<|> emptyServer :: ServerT ReaderAPI (Reader String)$let nt x = return (runReader x "hi")Jlet mainServer = hoistServer readerApi nt readerServer :: Server ReaderAPIservant-server The function  produces a textual description of the internal router layout for debugging purposes. Note that the router layout is determined just by the API, not by the handlers.Example:For the following API type API = "a" :> "d" :> Get '[JSON] NoContent :<|> "b" :> Capture "x" Int :> Get '[JSON] Bool :<|> "c" :> Put '[JSON] Bool :<|> "a" :> "e" :> Get '[JSON] Int :<|> "b" :> Capture "x" Int :> Put '[JSON] Bool :<|> Rawwe get the following output: x/ %% a/ % %% d/ % % %% " % %% e/ % %% " %% b/ % %% <capture>/ % %% " % % % %% " %% c/ % %% " % %% <raw>Explanation of symbols: %2Normal lines reflect static branching via a table.a/%Nodes reflect static path components.% "Leaves reflect endpoints. <capture>/.This is a delayed capture of a path component.<raw>8This is a part of the API we do not know anything about.%Dashed lines suggest a dynamic choice between the part above and below. If there is a success for fatal failure in the first part, that one takes precedence. If both parts fail, the "better" error code will be returned.servant-server Variant of  that takes an additional  .L  !"#$%&'()*+,-./0123456789:;WjrstuLWrstuj  !"#$%&'()*+,-./0123456789:; None ,.>HSUVXservant-serverJA type that specifies that an API record contains a server implementation.servant-server&Transform record of routes into a WAI .servant-server:Transform a record of routes with custom monad into a WAI E, by providing a transformation to bring each handler back in the r monad.servant-server:Transform a record of routes with custom monad into a WAI , while using the given   to serve the application (contexts are typically used by auth-related combinators in servant, e.g to hold auth checks) and the given transformation to map all the handlers back to the r monad.servant-server%Transform record of endpoints into a .servant-server argument to come back to rservant-server$your record full of request handlersservant-server argument to come back to rservant-server$your record full of request handlersservant-serverthe   to serve the application withNoneJservant-server2Serve anything under the specified directory as a  endpoint. ^type MyApi = "static" :> Raw server :: Server MyApi server = serveDirectoryWebApp "/var/www" would capture any request to /static/<something> and look for  <something> under /var/www.kIt will do its best to guess the MIME type for that file, based on the extension, and send an appropriate  Content-Type header if possible.If your goal is to serve HTML, CSS and Javascript files that use the rest of the API as a webapp backend, you will most likely not want the static files to be hidden behind a /static/+ prefix. In that case, remember to put the ( handler in the last position, because servant* will try to match the handlers in order.Corresponds to the   value.servant-serverSame as  , but uses .servant-serverSame as  , but uses .servant-serverUses .servant-server Alias for /. Lets you serve a directory with arbitrary z. Useful when you want particular settings not covered by the four other variants. This is the most flexible method.servant-serverSame as . It used to be the only file serving function in servant pre-0.10 and will be kept around for a few versions, but is deprecated.None !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;WjrstuNone-27=>?@AHUVXservant-server$Handlers for AuthProtected resources4NOTE: THIS API IS EXPERIMENTAL AND SUBJECT TO CHANGEservant-serveraSpecify the type of data returned after we've authenticated a request. quite often this is some User datatype.4NOTE: THIS API IS EXPERIMENTAL AND SUBJECT TO CHANGEservant-server4NOTE: THIS API IS EXPERIMENTAL AND SUBJECT TO CHANGEservant-serverKnown orphan instance.NoneK  !"#$$%&'()*+,-./01123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[[\]^_`abcdefghijklmnopqrstuvwxyz{|}~                              ! !"#$"%&'()*+,+-./01234567869:67;67<6=>6?@AB()C()D()E()F()G()H()I()JKLMKLMKLNKLOKPQKPRKPSKPTKPUKPVKPWKPXKPYKPZ[\][\][\^[\_[\`[\a[\bcdcecfcgchcicjckclcmcncocpcqcrcsctcucvcwcxcyczc{|}|~|||||||||||||||""..01*servant-server-0.17-3lnbt82bgya5CvPAm5AAPgServantServant.ServerServant.Server.Internal.Context#Servant.Server.Internal.ServerError#Servant.Server.Internal.RouteResult*Servant.Server.Internal.RoutingApplicationServant.Server.Internal.RouterServant.Server.Internal.Handler!Servant.Server.Internal.DelayedIOServant.Server.Internal.Delayed!Servant.Server.Internal.BasicAuthServant.Server.InternalServant.Server.GenericServant.Server.StaticFiles Servant.Server.Experimental.AuthControl.Monad.Trans.ReaderReaderTserveserveWithContextServant.API.WithNamedContextWithNamedContextServant.Utils.StaticFilesbase Data.ProxyProxy mtl-2.2.2Control.Monad.Error.Class throwError#tagged-0.8.6-FABECvKnqYbBCttH1EeJvB Data.TaggedunTaggedTagged"wai-3.2.2.1-GzzzQ2sQGDDDoiwkgLcIGb Network.Wai Application NamedContextHasContextEntrygetContextEntryContext EmptyContext:.descendIntoNamedContext $fEqContext $fEqContext0 $fShowContext$fShowContext0$fHasContextEntry:val$fHasContextEntry:val0 ServerError errHTTPCodeerrReasonPhraseerrBody errHeadersresponseServerErrorerr300err301err302err303err304err305err307err400err401err402err403err404err405err406err407err409err410err411err412err413err414err415err416err417err418err422err500err501err502err503err504err505$fExceptionServerError$fShowServerError$fEqServerError$fReadServerError RouteResultTrunRouteResultT RouteResultFail FailFatalRoute$fMonadRouteResult$fApplicativeRouteResult$fMonadThrowRouteResultT$fMonadTransControlRouteResultT$fMonadBaseControlbRouteResultT$fMonadBasebRouteResultT$fMonadIORouteResultT$fMonadRouteResultT$fApplicativeRouteResultT$fMonadTransRouteResultT$fEqRouteResult$fShowRouteResult$fReadRouteResult$fFunctorRouteResult$fFunctorRouteResultTRoutingApplication toApplicationRouterStructureStaticRouterStructureCaptureRouterStructureRawRouterStructureChoiceStructureRouter' StaticRouter CaptureRouterCaptureAllRouter RawRouterChoiceRouter pathRouter leafRouterchoicerouterStructure sameStructure routerLayout tweakResponse runRouter runRouterEnv runChoice worseHTTPCode$fFunctorRouter'$fEqRouterStructure$fShowRouterStructureHandler runHandler' runHandler$fMonadBaseControlIOHandler$fMonadBaseIOHandler$fFunctorHandler$fApplicativeHandler$fMonadHandler$fMonadIOHandler$fGenericHandler$fMonadErrorHandler$fMonadThrowHandler$fMonadCatchHandler$fMonadMaskHandler DelayedIO runDelayedIO'liftRouteResult runDelayedIO delayedFaildelayedFailFatal withRequest$fMonadBaseControlIODelayedIO$fMonadBaseIODelayedIO$fFunctorDelayedIO$fApplicativeDelayedIO$fMonadDelayedIO$fMonadIODelayedIO$fMonadReaderDelayedIO$fMonadThrowDelayedIO$fMonadResourceDelayedIODelayed capturesDmethodDauthDacceptDcontentDparamsDheadersDbodyDserverD emptyDelayed addCaptureaddParameterCheckaddHeaderCheckaddMethodCheck addAuthCheck addBodyCheckaddAcceptCheck passToServer runDelayed runAction$fFunctorDelayedBasicAuthCheckunBasicAuthCheckBasicAuthResult Unauthorized BadPassword NoSuchUser AuthorizedmkBAChallengerHdr decodeBAHdr runBasicAuth$fEqBasicAuthResult$fShowBasicAuthResult$fReadBasicAuthResult$fGenericBasicAuthResult$fFunctorBasicAuthResult$fGenericBasicAuthCheck$fFunctorBasicAuthCheckHasServerArrowTypeErrorHasServerArrowKindError EmptyServerServer HasServerServerTroutehoistServerWithContextallowedMethodHead allowedMethod methodCheck acceptCheck methodRouternoContentRouter streamRouter emptyServer ct_wildcard&$fHasServerTYPEWithNamedContextcontext$fHasServerTYPE:>context$fHasServerTYPE:>ctx$fHasServerTYPE:>ctx0$fHasServerTYPE:>context0$fHasServerTYPE:>context1$fHasServerTYPE:>context2$fHasServerTYPE:>context3$fHasServerTYPE:>context4$fHasServerTYPE:>context5$fHasServerTYPE:>context6$fHasServerTYPERawcontext$fHasServerTYPE:>context7$fHasServerTYPE:>context8$fHasServerTYPE:>context9$fHasServerTYPE:>context10$fHasServerTYPEStreamcontext$fHasServerTYPEStreamcontext0#$fHasServerTYPENoContentVerbcontext$fHasServerTYPEVerbcontext$fHasServerTYPEVerbcontext0$fHasServerTYPE:>context11$fHasServerTYPE:>context12$fHasServerTYPE:<|>context$fHasServerTYPEEmptyAPIcontext$fHasServerTYPE:>context13$fHasServerTYPE->context$fEqEmptyServer$fShowEmptyServer$fBoundedEmptyServer$fEnumEmptyServer hoistServerlayoutlayoutWithContextAsServer AsServerT genericServe genericServeTgenericServeTWithContext genericServergenericServerT$fGenericModeAsServerTserveDirectoryWebAppserveDirectoryFileServerserveDirectoryWebAppLookupserveDirectoryEmbeddedserveDirectoryWithserveDirectory AuthHandler unAuthHandlerAuthServerData mkAuthHandler$fGenericAuthHandlerNetwork.Wai.InternalRequestghc-prim GHC.TypesIO#servant-0.17-8Vjq5OQ4ACpEksochsBg4TServant.API.EmptyEmptyAPIServant.API.Description DescriptionSummaryServant.API.QueryParam QueryFlagBool QueryParams GHC.TypeLitsText,http-api-data-0.4.1.1-Fq5yRDilgZrJvJu6EwEz1sWeb.Internal.HttpApiDataFromHttpApiData GHC.MaybeMaybeNothingServant.API.Capture CaptureAllServant.API.Alternative:<|>Servant.API.Sub:>Servant.API.RawRaw-wai-app-static-3.1.7.1-7Eb0YuZnRM17qdrRP0jlR2WaiAppStatic.Storage.FilesystemdefaultWebAppSettingsWaiAppStatic.TypesStaticSettingsdefaultFileServerSettingswebAppSettingsWithLookup%WaiAppStatic.Storage.Embedded.RuntimeembeddedSettingsNetwork.Wai.Application.Static staticAppData.Type.BoolIf ToHttpApiData toUrlPiecetoEncodedUrlPiecetoHeader toQueryParam parseUrlPiece parseHeaderparseQueryParam(http-types-0.12.3-A2cx1Lg5j0cKG76Sfj8L06Network.HTTP.Types.Version HttpVersion httpMajor httpMinorNetwork.HTTP.Types.Method StdMethodGETPOSTHEADPUTDELETETRACECONNECTOPTIONSPATCH*network-uri-2.6.1.0-K75fCYvLQE41EntOQ30cqK Network.URIURI uriScheme uriAuthorityuriPathuriQuery uriFragment Servant.LinksallFieldLinks' allFieldLinks fieldLink' fieldLink allLinks'allLinks safeLink'safeLinklinkURI'linkURIlinkQueryParams linkSegmentsLinkParam SingleParamArrayElemParam FlagParamLinkArrayElementStyleLinkArrayElementBracketLinkArrayElementPlainAsLinkHasLinkMkLinktoLinkServant.API.StreamStream StreamGet StreamPost StreamBody StreamBody'SourceIO ToSourceIO toSourceIO FromSourceIO fromSourceIO FramingRender framingRenderFramingUnrenderframingUnrender NoFramingNewlineFramingNetstringFramingServant.API.TypeLevel EndpointsIsElem'IsElemIsSubAPI AllIsElemIsInIsStrictSubAPIAllIsInMapSub AppendList IsSubListElemElemGoOrAndServant.API.VerbsVerb NoContentVerbGetPostPutDeletePatch PostCreated PutCreated GetAccepted PostAcceptedDeleteAccepted PatchAccepted PutAcceptedGetNonAuthoritativePostNonAuthoritativeDeleteNonAuthoritativePatchNonAuthoritativePutNonAuthoritative GetNoContent PostNoContentDeleteNoContentPatchNoContent PutNoContentGetResetContentPostResetContentGetPartialContent ReflectMethod reflectMethodServant.API.ResponseHeaderslookupResponseHeadernoHeader addHeaderHeaders getResponsegetHeadersHListResponseHeaderHeader MissingHeaderUndecodableHeaderHListHNilHConsBuildHeadersTobuildHeadersTo GetHeaders getHeaders AddHeaderHasResponseHeaderServant.API.ReqBodyReqBodyReqBody'Servant.API.RemoteHost RemoteHost QueryParam QueryParam'Servant.API.HeaderHeader'Servant.API.ModifiersRequiredOptionalLenientStrictServant.API.IsSecureIsSecureSecure NotSecureServant.API.Experimental.Auth AuthProtectServant.API.ContentTypesJSON PlainTextFormUrlEncoded OctetStreamAccept contentType contentTypes MimeRender mimeRender MimeUnrender mimeUnrendermimeUnrenderWithType NoContentCaptureCapture'Servant.API.BasicAuth BasicAuth BasicAuthDatabasicAuthUsernamebasicAuthPassword$vault-0.3.1.3-7pUU5X1tn3YIFyf9ofAp7zData.Vault.LazyVault+singleton-bool-0.1.5-ILc7I2ZiylMBjb8V7CUi6WData.Singletons.BoolSBoolIsboolSBoolSFalseSTrue