monadicsystems/okapi
1
1
Fork 0
mirror of https://github.com/monadicsystems/okapi.git synced 2024-11-22 08:54:32 +03:00
Code Issues Projects Releases Wiki Activity

Organize more

Browse Source
This commit is contained in:
Rashad Gover 2023-04-20 16:54:16 +00:00
parent e8de3cd590
commit dcf4660118
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/src/Okapi/Endpoint.hs
View File

@ -179,12 +179,12 @@ data Executable = Run (IO WAI.Response) | Null
type Compiler = Request -> Executable
executable ::
artifacts ::
forall m p q h b r.
Monad m =>
Plan m p q h b r ->
Compiler
executable plan (method, path, query, body, headers) =
artifacts plan (method, path, query, body, headers) =
if method == plan.endpoint.method
then
let pathResult = fst $ Path.eval plan.endpoint.pathScript path