Perhaps the first webserver in Tree Calculus? Sure, it's married to a Haskell IO runtime... but we're managing all of the actual webserver semantics in tricu! This includes a demo Arboricx application server that is capable of storing and serving bundles.
16 lines
286 B
Plaintext
16 lines
286 B
Plaintext
!import "base.tri" !Local
|
|
!import "list.tri" !Local
|
|
|
|
bytesNil? = emptyList?
|
|
|
|
bytesHead = matchList nothing (h _ : just h)
|
|
|
|
bytesTail = matchList nothing (_ r : just r)
|
|
|
|
bytesLength = length
|
|
bytesAppend = append
|
|
bytesTake = take
|
|
bytesDrop = drop
|
|
bytesSplitAt = splitAt
|
|
bytesEq? = equal?
|