http.bend fails

raw source on the hub · import 0x2f05a850481b0f5b4b2e39aea41edc25/http.bend as Http

1 import

import Base

Types

type Req source · line 7 · raw

Data

Req

@method:String -> @path:String -> @headers:Map<&2, String> -> @body:String -> Req

type Res source · line 10 · raw

Data

Res

@status:U32 -> @headers:Map<&2, String> -> @body:String -> Res

type Fields source · line 13 · raw

Data

FieldsBad
```
Fields
```
FieldsOk
```
@m:Map<&2, String> -> Fields
```

type HexSize source · line 198 · raw

Data

HexSize
```
@n:U32 -> @rest:String -> HexSize
```

Definitions

def empty source · line 17 · raw

Map<&2, String>

def sanitize.cons source · line 20 · raw

@ch:Char -> @rest:String -> @drop:Bool -> String

def sanitize source · line 27 · raw

@s:String -> String

def drop_cr.if source · line 34 · raw

@+s:String -> @cr:Bool -> String

def drop_cr source · line 41 · raw

@+s:String -> String

def take_sp.go source · line 44 · raw

@s:String -> @+acc:String -> Pair(String, String)

def take_sp source · line 51 · raw

@s:String -> Pair(String, String)

def start_line.ver source · line 54 · raw

@m:String -> @pv:Pair(String, String) -> Pair(String, Pair(String, String))

def start_line.rest source · line 58 · raw

@mr:Pair(String, String) -> Pair(String, Pair(String, String))

def start_line source · line 62 · raw

@s:String -> Pair(String, Pair(String, String))

def split_at_blank.go source · line 65 · raw

@s:String -> @e:Bool -> @w:U32 -> @acc:String -> Pair(String, String)

def split_at_blank source · line 77 · raw

@s:String -> Pair(String, String)

def split_colon.go source · line 80 · raw

@s:String -> @+acc:String -> Pair(String, String)

def split_colon source · line 87 · raw

@s:String -> Pair(String, String)

def has_header.of source · line 90 · raw

@r:Pair(Map<&2, String>, Bool) -> Bool

def has_header source · line 94 · raw

@+h:Map<&2, String> -> @k:String -> Bool

@r:Pair(Map<&2, String>, String) -> String

def header source · line 101 · raw

@+h:Map<&2, String> -> @k:String -> String

def folded source · line 104 · raw

@+line:String -> Bool

def tracked source · line 107 · raw

@+k:String -> Bool

def fields_put.dup source · line 110 · raw

@m:Map<&2, String> -> @k:String -> @v:String -> @bad:Bool -> Fields

def fields_put.key source · line 117 · raw

@+m:Map<&2, String> -> @+k:String -> @v:String -> Fields

def fields_put.kv source · line 120 · raw

@m:Map<&2, String> -> @kv:Pair(String, String) -> Fields

def fields_put.fold source · line 124 · raw

@m:Map<&2, String> -> @line:String -> @fold:Bool -> Fields

def fields_put.empty source · line 131 · raw

@m:Map<&2, String> -> @+line:String -> @e:Bool -> Fields

def fields_put.ok source · line 138 · raw

@m:Map<&2, String> -> @+line:String -> Fields

def fields_put source · line 141 · raw

@acc:Fields -> @line:String -> Fields

def parse.headers.done source · line 148 · raw

@acc:Fields -> Maybe<&2, Map<&2, String>>

def parse.headers source · line 155 · raw

@xs:List<&2, String> -> @acc:Fields -> Maybe<&2, Map<&2, String>>

def parse_u32.digit source · line 162 · raw

@+c:U32 -> Bool

def parse_u32.add source · line 165 · raw

@acc:U32 -> @c:U32 -> U32

def parse_u32.done source · line 168 · raw

@acc:U32 -> @bad:Bool -> Maybe<&2, U32>

def parse_u32.go source · line 175 · raw

@s:String -> @acc:U32 -> @bad:Bool -> Maybe<&2, U32>

def parse_u32 source · line 182 · raw

@s:String -> Maybe<&2, U32>

def parse.take source · line 191 · raw

@rest:String -> @n:Maybe<&2, U32> -> Maybe<&2, String>

def is_hex source · line 201 · raw

@+c:U32 -> Bool

def hexv source · line 204 · raw

@+c:U32 -> U32

def chunk.lf1 source · line 207 · raw

@r:String -> @n:U32 -> @lf:Bool -> Maybe<&2, HexSize>

def chunk.lf source · line 214 · raw

@t:String -> @n:U32 -> Maybe<&2, HexSize>

def chunk.cr source · line 221 · raw

@c:U32 -> @t:String -> @n:U32 -> @seen:Bool -> @cr:Bool -> Maybe<&2, HexSize>

def chunk.size.go source · line 228 · raw

@s:String -> @+acc:U32 -> @seen:Bool -> Maybe<&2, HexSize>

def chunk.size source · line 235 · raw

@s:String -> Maybe<&2, HexSize>

def chunk.last.if source · line 238 · raw

@+s:String -> @acc:String -> @ok:Bool -> Maybe<&2, String>

def chunk.last source · line 245 · raw

@+s:String -> @acc:String -> Maybe<&2, String>

def chunk.end1 source · line 248 · raw

@n:U32 -> @rest:String -> @acc:String -> @zero:Bool -> Maybe<&2, String>

def chunk.end source · line 255 · raw

@got:Maybe<&2, HexSize> -> @acc:String -> Maybe<&2, String>

def chunk.mid1 source · line 262 · raw

@+after:String -> @acc:String -> @ok:Bool -> Maybe<&2, String>

def chunk.mid source · line 269 · raw

@+after:String -> @acc:String -> Maybe<&2, String>

def chunk.data.if source · line 272 · raw

@+n:U32 -> @+rest:String -> @acc:String -> @short:Bool -> Maybe<&2, String>

def chunk.data source · line 279 · raw

@+n:U32 -> @+rest:String -> @acc:String -> Maybe<&2, String>

def chunk.more1 source · line 282 · raw

@n:U32 -> @rest:String -> @acc:String -> @zero:Bool -> Maybe<&2, String>

def chunk.more source · line 289 · raw

@got:Maybe<&2, HexSize> -> @acc:String -> Maybe<&2, String>

def chunk.decode source · line 297 · raw

@s:String -> Maybe<&2, String>

ponytail: one data chunk then last-chunk; multi-chunk when a loop is easy

def parse.body.cl source · line 300 · raw

@+h:Map<&2, String> -> @rest:String -> @hascl:Bool -> Maybe<&2, String>

def parse.body.chunked.eq source · line 307 · raw

@rest:String -> @ok:Bool -> Maybe<&2, String>

def parse.body.chunked.val source · line 314 · raw

@te:String -> @rest:String -> Maybe<&2, String>

def parse.body.chunked source · line 317 · raw

@+h:Map<&2, String> -> @rest:String -> @hascl:Bool -> Maybe<&2, String>

def parse.body.te source · line 324 · raw

@+h:Map<&2, String> -> @rest:String -> @te:Bool -> Maybe<&2, String>

def parse.body source · line 331 · raw

@+h:Map<&2, String> -> @rest:String -> Maybe<&2, String>

def parse.finish source · line 334 · raw

@method:String -> @path:String -> @h:Map<&2, String> -> @body:Maybe<&2, String> -> Maybe<&2, Req>

def parse.host source · line 341 · raw

@method:String -> @path:String -> @+h:Map<&2, String> -> @rest:String -> @has:Bool -> Maybe<&2, Req>

def parse.fields source · line 348 · raw

@method:String -> @path:String -> @rest:String -> @fs:Maybe<&2, Map<&2, String>> -> Maybe<&2, Req>

def target_ok source · line 355 · raw

@+p:String -> Bool

def parse.target source · line 358 · raw

@method:String -> @+path:String -> @headers:List<&2, String> -> @rest:String -> @ok:Bool -> Maybe<&2, Req>

def parse.ver source · line 365 · raw

@method:String -> @+path:String -> @v:String -> @headers:List<&2, String> -> @rest:String -> @ok:Bool -> Maybe<&2, Req>

def parse.empty_method source · line 372 · raw

@method:String -> @path:String -> @+v:String -> @headers:List<&2, String> -> @rest:String -> @empty:Bool -> Maybe<&2, Req>

def parse.start3 source · line 379 · raw

@mpv:Pair(String, Pair(String, String)) -> @headers:List<&2, String> -> @rest:String -> Maybe<&2, Req>

def parse.lines source · line 383 · raw

@xs:List<&2, String> -> @rest:String -> Maybe<&2, Req>

def parse.head source · line 390 · raw

@head:String -> @rest:String -> Maybe<&2, Req>

def parse.of source · line 393 · raw

@hb:Pair(String, String) -> Maybe<&2, Req>

def parse source · line 397 · raw

@raw:String -> Maybe<&2, Req>

def parse.res.cl source · line 400 · raw

@+h:Map<&2, String> -> @rest:String -> @hascl:Bool -> Maybe<&2, String>

def parse.res.te source · line 407 · raw

@+h:Map<&2, String> -> @rest:String -> @te:Bool -> Maybe<&2, String>

def parse.res.body source · line 414 · raw

@+h:Map<&2, String> -> @rest:String -> Maybe<&2, String>

def parse.res.finish source · line 417 · raw

@status:U32 -> @h:Map<&2, String> -> @body:Maybe<&2, String> -> Maybe<&2, Res>

def parse.res.fields source · line 424 · raw

@status:U32 -> @rest:String -> @fs:Maybe<&2, Map<&2, String>> -> Maybe<&2, Res>

def parse.res.num source · line 431 · raw

@code:Maybe<&2, U32> -> @headers:List<&2, String> -> @rest:String -> Maybe<&2, Res>

def parse.res.ver source · line 438 · raw

@ver:String -> @code:String -> @headers:List<&2, String> -> @rest:String -> @ok:Bool -> Maybe<&2, Res>

def parse.res.start3 source · line 445 · raw

@mpv:Pair(String, Pair(String, String)) -> @headers:List<&2, String> -> @rest:String -> Maybe<&2, Res>

def parse.res.lines source · line 449 · raw

@xs:List<&2, String> -> @rest:String -> Maybe<&2, Res>

def parse.res.head source · line 456 · raw

@head:String -> @rest:String -> Maybe<&2, Res>

def parse.res.of source · line 459 · raw

@hb:Pair(String, String) -> Maybe<&2, Res>

def parse_res source · line 463 · raw

@raw:String -> Maybe<&2, Res>

def res_body.res source · line 466 · raw

@res:Res -> String

def res_body source · line 470 · raw

@m:Maybe<&2, Res> -> String

def got_body.req source · line 477 · raw

@req:Req -> String

def got_body source · line 481 · raw

@m:Maybe<&2, Req> -> String

def body.of source · line 488 · raw

@hb:Pair(String, String) -> String

def body source · line 492 · raw

@s:String -> String

def headers_block.go source · line 495 · raw

@xs:List<&2, Sigma<&2, &2, String, _ => String>> -> @acc:String -> String

def headers_block source · line 502 · raw

@h:Map<&2, String> -> String

def response source · line 505 · raw

@status:U32 -> @headers:Map<&2, String> -> @body:String -> String

def nat_u32 source · line 508 · raw

@n:Nat -> U32

def encode source · line 515 · raw

@r:Res -> String

def request source · line 519 · raw

@method:String -> @path:String -> @headers:Map<&2, String> -> @body:String -> String

def encode_req source · line 522 · raw

@method:String -> @path:String -> @host:String -> @+body:String -> String

def fetch_tail source · line 526 · raw

@head:String -> @m:Pair(Socket, Result<&1, &1, Pair(U32, String), String>) -> IO(Maybe<&2, Res>)

ponytail: two recvs; loop when bodies exceed 16KiB

def fetch_head source · line 533 · raw

@m:Pair(Socket, Result<&1, &1, Pair(U32, String), String>) -> IO(Maybe<&2, Res>)

def fetch_sent source · line 540 · raw

@m:Pair(Socket, Result<&1, &1, Pair(U32, String), Unit>) -> IO(Maybe<&2, Res>)

def fetch source · line 547 · raw

@method:String -> @ip:String -> @port:U32 -> @host:String -> @path:String -> @body:String -> IO(Maybe<&2, Res>)

def get_body.res source · line 553 · raw

@res:Res -> String

def get_body source · line 557 · raw

@m:Maybe<&2, Res> -> String

def get source · line 564 · raw

@ip:String -> @port:U32 -> @host:String -> @path:String -> IO(String)

def sent_fin source · line 569 · raw

@m:Pair(Socket, Result<&1, &1, Pair(U32, String), Unit>) -> IO(Unit)

def reply_send source · line 573 · raw

@s:Socket -> @res:Res -> IO(Unit)

Templates

template reply_handle source · line 578 · raw

@-h:(@_:Req -> IO(Res)) -> @s:Socket -> @req:Req -> IO(Unit)

template reply_parsed source · line 583 · raw

@-h:(@_:Req -> IO(Res)) -> @s:Socket -> @m:Maybe<&2, Req> -> IO(Unit)

template reply_ok source · line 590 · raw

@-h:(@_:Req -> IO(Res)) -> @s:Socket -> @raw:String -> IO(Unit)

template reply source · line 593 · raw

@-h:(@_:Req -> IO(Res)) -> @m:Pair(Socket, Result<&1, &1, Pair(U32, String), String>) -> IO(Unit)

template talk source · line 601 · raw

@-h:(@_:Req -> IO(Res)) -> @s:Socket -> IO(Unit)

template conn source · line 606 · raw

@-h:(@_:Req -> IO(Res)) -> @m:Pair(Listener, Result<&1, &1, Pair(U32, String), Socket>) -> IO(Listener)

template serve source · line 620 · raw

@-h:(@_:Req -> IO(Res)) -> @+port:U32 -> IO(Unit)

Unsafe

unsafe loop source · line 614 · raw

@-h:(@_:Req -> IO(Res)) -> @l:Listener -> IO(Unit)