/+ *wrapper => |% +$ server-state %stateless ++ moat (keep server-state) +$ header [k=@t v=@t] +$ octs [p=@ q=@] +$ method $? %'GET' %'HEAD' %'POST' %'PUT' %'DELETE' %'CONNECT' %'OPTIONS' %'TRACE' %'PATCH' == :: +$ cause $: %req id=@ uri=@t =method headers=(list header) body=(unit octs) == :: +$ effect $: %res id=@ status=@ud headers=(list header) body=(unit octs) == :: ++ to-octs |= bod=@ ^- (unit octs) =/ len (met 3 bod) ?: =(len 0) ~ `[len bod] -- :: ~& %serving %- (moat |) ^- fort:moat |_ k=server-state :: :: +load: upgrade from previous state :: ++ load |= arg=server-state arg :: :: +peek: external inspect :: ++ peek |= =path ^- (unit (unit *)) !! :: :: +poke: external apply :: ++ poke |= [=wire eny=@ our=@ux now=@da dat=*] ^- [(list effect) server-state] =/ sof-cau=(unit cause) ((soft cause) dat) ?~ sof-cau ~& "cause incorrectly formatted!" ~& dat !! =/ [id=@ uri=@t =method headers=(list header) body=(unit octs)] +.u.sof-cau ~& [id+id uri+uri method+method headers+headers] :_ k :_ ~ ^- effect =- ~& effect+- - ?+ method [%res ~ %400 ~ ~] %'GET' :* %res id=id %200 ['content-type' 'text/html']~ %- to-octs '''

Hello NockApp!

''' == :: %'POST' !! == --