úΞ©ŠDó      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º » ¼ ½ ¾ ¿ À Á Â Ã Ä Å Æ Ç È É Ê Ë Ì Í Î Ï Ð Ñ Ò Ó Ô Õ Ö × Ø Ù Ú Û Ü Ý Þ ß à áâãäåæ ç è é ê ë ì í î ï ð ñ ò None!"0  Multiple ChoicesExample: afailingHandler :: Handler () failingHandler = throwError $ err300 { errBody = "I can't choose." } Moved PermanentlyExample: ?failingHandler :: Handler () failingHandler = throwError err301 FoundExample: ?failingHandler :: Handler () failingHandler = throwError err302 See OtherExample: ?failingHandler :: Handler () failingHandler = throwError err303 Not ModifiedExample: ?failingHandler :: Handler () failingHandler = throwError err304 Use ProxyExample: ?failingHandler :: Handler () failingHandler = throwError err305 Temporary RedirectExample: ?failingHandler :: Handler () failingHandler = throwError err307 Bad RequestExample: tfailingHandler :: Handler () failingHandler = throwError $ err400 { errBody = "Your request makes no sense to me." } UnauthorizedExample: ofailingHandler :: Handler () failingHandler = throwError $ err401 { errBody = "Your credentials are invalid." } Payment RequiredExample: yfailingHandler :: Handler () failingHandler = throwError $ err402 { errBody = "You have 0 credits. Please give me $$$." } ForbiddenExample: efailingHandler :: Handler () failingHandler = throwError $ err403 { errBody = "Please login first." } Not FoundExample: `failingHandler :: Handler () failingHandler = throwError $ err404 { errBody = "(%o°%¡°ÿ %oþ5 %;%%;)." } Method Not AllowedExample: “failingHandler :: Handler () failingHandler = throwError $ err405 { errBody = "Your account privileges does not allow for this. Please pay $$$." } Not AcceptableExample: ?failingHandler :: Handler () failingHandler = throwError err406 Proxy Authentication RequiredExample: ?failingHandler :: Handler () failingHandler = throwError err407 ConflictExample: •failingHandler :: Handler () failingHandler = throwError $ err409 { errBody = "Transaction conflicts with 59879cb56c7c159231eeacdd503d755f7e835f74" } GoneExample: ‹failingHandler :: Handler () failingHandler = throwError $ err410 { errBody = "I know it was here at some point, but.. I blame bad luck." } Length RequiredExample: ?failingHandler :: Handler () failingHandler = throwError err411   Precondition FailedExample: ufailingHandler :: Handler () failingHandler = throwError $ err412 { errBody = "Precondition fail: x < 42 && y > 57" }!! Request Entity Too LargeExample: gfailingHandler :: Handler () failingHandler = throwError $ err413 { errBody = "Request exceeded 64k." }"" Request-URI Too LargeExample: gfailingHandler :: Handler () failingHandler = throwError $ err414 { errBody = "Maximum length is 64." }## Unsupported Media TypeExample: rfailingHandler :: Handler () failingHandler = throwError $ err415 { errBody = "Supported media types: gif, png" }$$ Request range not satisfiableExample: mfailingHandler :: Handler () failingHandler = throwError $ err416 { errBody = "Valid range is [0, 424242]." }%% Expectation FailedExample: ‹failingHandler :: Handler () failingHandler = throwError $ err417 { errBody = "I found a quux in the request. This isn't going to work." }&& Expectation FailedExample: ‚failingHandler :: Handler () failingHandler = throwError $ err418 { errBody = "Apologies, this is not a webserver but a teapot." }'' Unprocessable EntityExample: ‚failingHandler :: Handler () failingHandler = throwError $ err422 { errBody = "I understood your request, but can't process it." }(( Internal Server ErrorExample: ‚failingHandler :: Handler () failingHandler = throwError $ err500 { errBody = "Exception in module A.B.C:55. Have a great day!" })) Not ImplementedExample: „failingHandler :: Handler () failingHandler = throwError $ err501 { errBody = "/v1/foo is not supported with quux in the request." }** Bad GatewayExample: ƒfailingHandler :: Handler () failingHandler = throwError $ err502 { errBody = "Tried gateway foo, bar, and baz. None responded." }++ Service UnavailableExample: ifailingHandler :: Handler () failingHandler = throwError $ err503 { errBody = "We're rewriting in PHP." },, Gateway Time-outExample: ~failingHandler :: Handler () failingHandler = throwError $ err504 { errBody = "Backend foobar did not respond in 5 seconds." }-- HTTP Version not supportedExample usage: jfailingHandler :: Handler () failingHandler = throwError $ err505 { errBody = "I support HTTP/4.0 only." }(  !"#$%&'()*+,-.'  !"#$%&'()*+,-( .  !"#$%&'()*+,-#  !"#$%&'()*+,-.None 05<=DIR2345672345234765234567None!"%&/29;<=DILQR@Computations used in a C can depend on the incoming ó‹, may perform 'IO, and result in a 'RouteResult, meaning they can either suceed, fail (with the possibility to recover), or fail fatally.CA CY 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 C@ 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.Q8The result of matching against a path in the route tree.RKeep trying other paths. The  ServantErr! should only be 404, 405 or 406.SDon't try other paths.YA C without any stored checks.Z Fail with the option to recover.[2Fail fatally, i.e., without any option to recover.\$Gain access to the incoming request.].Add a capture to the end of the capture block.^4Add a parameter check to the end of the params block_4Add a parameter check to the end of the params block`2Add a method check to the end of the method block.a/Add an auth check to the end of the auth block.b;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.cÿAdd 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).dyMany combinators extract information that is passed to the handler without the possibility of failure. In such a case, d can be used.e•Run 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.fÁRuns 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.3@ABCDEFGHIJKLMNOPQRSTUthe request, the field pathInfo may be modified by url routingVWXYZ[\]^_`abcontent type check body checkcdefghijklmnopqr'@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdef3UQRSTrqNOPponmlkjiVCDEFGHIJKLMh@ABWgXYZ[\]^_`abcdef"@ABC DEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrNone%&2D€tDatatype used for representing and debugging the structure of a router. Abstracts from the handlers at the leaves.Two ‹3s can be structurally compared by computing their € using % and then testing for equality, see .…$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.†®the 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‡_first path component is passed to the child router in its environment and removed afterwardsˆcall path components are passed to the child router in its environment and are removed afterwards‰3to be used for routes we do not know anything aboutŠ&left-biased choice between two routersŒ5Smart constructor for a single static path component.JSmart constructor for a leaf, i.e., a router that expects the empty path.Ž]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."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.%Compare the structure of two routers.‘?Provide a textual representation of the structure of a router.’,Apply a transformation to the response of a ‹.“%Interpret a router as an application.•Try 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.€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–‹…†‡ˆ‰ŠŒŽ€‚ƒ„‘’“”•–€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–Safe%&,9:;<=DQRTšyNormally 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.œ0This 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])...žž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 T.) 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, ()]¡¡ 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š›œžŸ ¡¢£¤¥¦§š›œžŸ ¡žŸ §¦¥¤œ£¢š›¡ š›œžŸ ¡¢£¤¥¦§ 5None025¨:Datatype wrapping a function used to check authentication.««servant-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/authorization°.Internal method to make a basic-auth challenge±Find and decode an  Authorization& header from the request as Basic Auth²WRun and check basic authentication, returning the appropriate http error per the spec. ¨©ª«¬­®¯°±² ¨©ª«¬­®¯°±² «¬­®¯¨©ª°±²¨©ª«¬­®¯°±² None*+,09:;<=DILOQRTº>Singleton type representing a server that serves an empty API.Æ Server for ôÉBasic AuthenticationÊThe server for an ô is emptyAPIServer. Rtype MyApi = "nothing" :> EmptyApi server :: Server MyApi server = emptyAPIServerËIgnore õ in server handlers.ÌIgnore ö in server handlers.Ñ+Make sure the incoming request starts with "/path"5, strip it and pass the rest of the request path to api.Ò 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 the type specified by ÷. 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...ÓKJust pass the request to the underlying application and serve its response.Example: ^type MyApi = "images" :> Raw server :: Server MyApi server = serveDirectory "/var/www/images"Ô 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...Õ 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 [Text].]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 Text2 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...Ö If you use ü "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 ý Text.ƒ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 Text2 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...× 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 the type specified by ÿu. 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 refererÚ 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 Text2 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 = ...Û 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 the type specified by the n. 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 Text2 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 = ...Ü 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 = ...#º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜŠ  !"#$%&'()*+,-2345@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdef€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–š›œžŸ ¡¨©ª«¬­®¯°±²º»¼½¾¿ÀÁÂÃÄÅÆÇ#½¾¿À¼ÜÛÚÁÂÃÄÅÙØ×ÖÕÔÓÒÑÐÏÎÍÌ˺»ÆÊÉÇȺ»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜNone *,:DORTáá2 allows you to implement an API and produce a wai .Example: ÿ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 = ... myApi :: Proxy MyApi myApi = Proxy app :: Application app = serve myApi server main :: IO () main = Network.Wai.Handler.Warp.run 8080 appãHoist server implementation.Sometimes our cherished 2l 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 ReaderAPIä 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.å Variant of ä that takes an additional ž.áâãäåL  !"#$%&'()*+,-2345V’š›œžŸ ¡¨©ª«¬­®¯º¼½¾¿ÀÆáâãäåLáâV½¾¿À¼ºÆ2345äåã’žŸ œš›¡¨©ª«¬­®¯  !"#$%&'()*+,-áâãäå Noneæ2Serve 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.çSame as æ , but uses .èSame as æ , but uses .éUses .ê 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.ëSame 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[öõô\]^_`abcdefghijkÿlmnopqüúør÷stuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ  !"#$%&'()*+,-2345V’š›œžŸ ¡¨©ª«¬­®¯º¼½¾¿ÀÆáâãäåæçèéêë None+059:;<=DQRTì$Handlers for AuthProtected resources4NOTE: THIS API IS EXPERIMENTAL AND SUBJECT TO CHANGEïaSpecify 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 CHANGEð4NOTE: THIS API IS EXPERIMENTAL AND SUBJECT TO CHANGEñKnown orphan instance.ìíîïðñìíîïðïìíîðñìíîïðñ‘ !!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKKLMNOPQRSTUVWXXYZZ[\]^_`abcddefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯¯°±²³´µ¶·¸¹º»¼¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌ Í Í Î Ï Ð Ñ Ò Ó Ô Õ Ö × Ø Ù Ú Û Ü Ý Þ ß à á â ã ä å æ ç è é ê ë ì í î ï ð ñ òóôõ ö ÷ ø ù ú û ü ü ý þ ÿ Û         !"#!$%!"&!"'!()!*+ ,-./0123456756856956:56;56<56=56>56?56@5AB5AB5AC5ADEFGEFGEFHEFIEFJEFKEFLMNMOMPMQMRMSMTMUMVMWMXMYMZM[M\M]M^_`_a_b_c_d_e_f_g_h_i_j_k_l_m_nopoqoqorostutvtwtxtytzt{t|t}t~tt€tt‚ƒ„…„†„‡„‡„ˆ„‰„Š„‹„Œ„„Ž„„„‘’“”•”–”—˜™š›œœžœŸœ œ¡œ¢œ£œ¤œ¥œ¦œ§œ¨œ©œªœ«œ¬œ­œ®œ¯œ°œ±œ²œ³œ´œµœ¶œ·¸¹º»*servant-server-0.12-5Roaa4Uay733zPgiNNsE7cServantServant.Server"Servant.Server.Internal.ServantErrServant.Server.Internal.Handler*Servant.Server.Internal.RoutingApplicationServant.Server.Internal.RouterServant.Server.Internal.Context!Servant.Server.Internal.BasicAuthServant.Server.InternalServant.Utils.StaticFiles Servant.Server.Experimental.AuthControl.Monad.Trans.ReaderReaderT Servant.UtilsEnterserveserveWithContextServant.API.WithNamedContextWithNamedContextbase Data.ProxyProxy mtl-2.2.1-BLKBelFsPB3BoFeSWSOYj6Control.Monad.Error.Class throwError"tagged-0.8.5-jDBtbBndklGIlXZjVMhpH Data.TaggedunTaggedTagged"wai-3.2.1.1-LRsD3O7vGOED6Ag3HIpJ6a Network.Wai Application ServantErr errHTTPCodeerrReasonPhraseerrBody errHeadersresponseServantErrerr300err301err302err303err304err305err307err400err401err402err403err404err405err406err407err409err410err411err412err413err414err415err416err417err418err422err500err501err502err503err504err505$fExceptionServantErr$fShowServantErr$fEqServantErr$fReadServantErrHandler runHandler' runHandler$fMonadBaseControlIOHandler$fMonadBaseIOHandler$fFunctorHandler$fApplicativeHandler$fMonadHandler$fMonadIOHandler$fGenericHandler$fMonadErrorHandler$fMonadThrowHandler$fMonadCatchHandler DelayedIO runDelayedIO'Delayed capturesDmethodDauthDacceptDcontentDparamsDheadersDbodyDserverD RouteResultTrunRouteResultT RouteResultFail FailFatalRouteRoutingApplication toApplicationliftRouteResult runDelayedIO emptyDelayed delayedFaildelayedFailFatal withRequest addCaptureaddParameterCheckaddHeaderCheckaddMethodCheck addAuthCheck addBodyCheckaddAcceptCheck passToServer runDelayed runAction$fMonadBaseControlIODelayedIO$fFunctorDelayed$fMonadThrowRouteResultT$fMonadTransControlRouteResultT$fMonadBaseControlbRouteResultT$fMonadBasebRouteResultT$fMonadIORouteResultT$fMonadRouteResultT$fApplicativeRouteResultT$fMonadTransRouteResultT$fMonadRouteResult$fApplicativeRouteResult$fEqRouteResult$fShowRouteResult$fReadRouteResult$fFunctorRouteResult$fFunctorRouteResultT$fFunctorDelayedIO$fApplicativeDelayedIO$fMonadDelayedIO$fMonadIODelayedIO$fMonadReaderDelayedIO$fMonadBaseDelayedIO$fMonadThrowDelayedIO$fMonadResourceDelayedIORouterStructureStaticRouterStructureCaptureRouterStructureRawRouterStructureChoiceStructureRouter' StaticRouter CaptureRouterCaptureAllRouter RawRouterChoiceRouter pathRouter leafRouterchoicerouterStructure sameStructure routerLayout tweakResponse runRouter runRouterEnv runChoice worseHTTPCode$fFunctorRouter'$fEqRouterStructure$fShowRouterStructure NamedContextHasContextEntrygetContextEntryContext EmptyContext:.descendIntoNamedContext$fHasContextEntry:val$fHasContextEntry:val0 $fEqContext $fEqContext0 $fShowContext$fShowContext0BasicAuthCheckunBasicAuthCheckBasicAuthResult Unauthorized BadPassword NoSuchUser AuthorizedmkBAChallengerHdr decodeBAHdr runBasicAuth$fEqBasicAuthResult$fShowBasicAuthResult$fReadBasicAuthResult$fGenericBasicAuthResult$fFunctorBasicAuthResult$fGenericBasicAuthCheck$fFunctorBasicAuthCheck EmptyServerServer HasServerServerTroutehoistServerWithContextallowedMethodHead allowedMethod methodCheck acceptCheck methodRouter emptyServer ct_wildcard&$fHasServerTYPEWithNamedContextcontext$fHasServerTYPE:>context$fHasServerTYPEEmptyAPIcontext$fHasServerTYPE:>ctx$fHasServerTYPE:>ctx0$fHasServerTYPE:>context0$fHasServerTYPE:>context1$fHasServerTYPE:>context2$fHasServerTYPE:>context3$fHasServerTYPE:>context4$fHasServerTYPE:>context5$fHasServerTYPERawcontext$fHasServerTYPE:>context6$fHasServerTYPE:>context7$fHasServerTYPE:>context8$fHasServerTYPE:>context9$fHasServerTYPEVerbcontext$fHasServerTYPEVerbcontext0$fHasServerTYPE:>context10$fHasServerTYPE:>context11$fHasServerTYPE:<|>context$fEqEmptyServer$fShowEmptyServer$fBoundedEmptyServer$fEnumEmptyServer hoistServerlayoutlayoutWithContextserveDirectoryWebAppserveDirectoryFileServerserveDirectoryWebAppLookupserveDirectoryEmbeddedserveDirectoryWithserveDirectory AuthHandler unAuthHandlerAuthServerData mkAuthHandler$fGenericAuthHandlerNetwork.Wai.InternalRequest#servant-0.12-AQmRz3TDpVo5YDrJHpDgbEServant.API.EmptyEmptyAPIServant.API.Description DescriptionSummaryServant.API.ReqBodyReqBodyServant.API.QueryParam QueryFlagghc-prim GHC.TypesBool QueryParams,http-api-data-0.3.7.1-24UzYiqH5SH4P0bIvmMk1PWeb.Internal.HttpApiDataFromHttpApiData QueryParamGHC.BaseMaybeNothingServant.API.HeaderHeaderServant.API.Capture CaptureAllCaptureServant.API.Alternative:<|>Servant.API.RawRaw-wai-app-static-3.1.6.1-8Cxip8Zt5z2FsZ7mKtnOUeWaiAppStatic.Storage.FilesystemdefaultWebAppSettingsWaiAppStatic.TypesStaticSettingsdefaultFileServerSettingswebAppSettingsWithLookup%WaiAppStatic.Storage.Embedded.RuntimeembeddedSettingsNetwork.Wai.Application.Static staticAppfixPath ToHttpApiData toUrlPiecetoEncodedUrlPiecetoHeader toQueryParam parseUrlPiece parseHeaderparseQueryParam%http-types-0.10-Cmn3ZvBAFrCp8W1yqUS6mNetwork.HTTP.Types.Method StdMethodGETPOSTHEADPUTDELETETRACECONNECTOPTIONSPATCHNetwork.HTTP.Types.Version HttpVersion httpMajor httpMinor*network-uri-2.6.1.0-Hz1OR91jXzHIcSp1mipvg3 Network.URIURI uriScheme uriAuthorityuriPathuriQuery uriFragmentServant.Utils.LinksallLinkssafeLinklinkURI'linkURIlinkQueryParams linkSegmentsLinkParam SingleParamArrayElemParam FlagParamLinkArrayElementStyleLinkArrayElementBracketLinkArrayElementPlainHasLinkMkLinktoLinkServant.API.TypeLevel EndpointsIsElem'IsElemIsSubAPI AllIsElemIsInIsStrictSubAPIAllIsInMapSub AppendList IsSubListElemElemGoOrAndServant.API.BasicAuth BasicAuth BasicAuthDatabasicAuthUsernamebasicAuthPasswordServant.API.ContentTypesJSON PlainTextFormUrlEncoded OctetStreamAccept contentType contentTypes MimeRender mimeRender MimeUnrender mimeUnrendermimeUnrenderWithType NoContentServant.API.Experimental.Auth AuthProtectServant.API.ResponseHeadersnoHeader addHeaderHeaders getResponsegetHeadersHListHListHNilHConsBuildHeadersTobuildHeadersTo GetHeaders getHeaders AddHeader MissingHeaderUndecodableHeaderServant.API.IsSecureIsSecureSecure NotSecureServant.API.RemoteHost RemoteHostServant.API.Sub:>Servant.API.VerbsVerbGetPostPutDeletePatch PostCreated GetAccepted PostAcceptedDeleteAccepted PatchAccepted PutAcceptedGetNonAuthoritativePostNonAuthoritativeDeleteNonAuthoritativePatchNonAuthoritativePutNonAuthoritative GetNoContent PostNoContentDeleteNoContentPatchNoContent PutNoContentGetResetContentPostResetContentGetPartialContent ReflectMethod reflectMethod$vault-0.3.0.7-3pqjPhWpsnyG2kCMa0q0VIData.Vault.LazyVault