diff options
Diffstat (limited to 'stdlib/source/library/lux/world/net/http')
8 files changed, 73 insertions, 73 deletions
diff --git a/stdlib/source/library/lux/world/net/http/client.lux b/stdlib/source/library/lux/world/net/http/client.lux index 793486d5b..a2ec857a0 100644 --- a/stdlib/source/library/lux/world/net/http/client.lux +++ b/stdlib/source/library/lux/world/net/http/client.lux @@ -2,32 +2,32 @@ [library [lux "*" ["@" target] - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." io {"+" [IO]}] - ["." maybe ("#\." functor)] - ["." try {"+" [Try]}] + ["[0]" io {"+" [IO]}] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]}]] + ["[0]" async {"+" [Async]}]] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." binary {"+" [Binary]}] - ["." text] + ["[0]" binary {"+" [Binary]}] + ["[0]" text] [collection - ["." dictionary]]] + ["[0]" dictionary]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]] + ["[0]" code] + ["[0]" template]] [math [number ["n" nat] ["i" int]]]]] - ["." // + ["[0]" // [// {"+" [URL]}]]) (type: .public (Client !) @@ -72,18 +72,18 @@ (with_expansions [<jvm> (as_is (ffi.import: java/lang/String) (ffi.import: java/lang/AutoCloseable - ["#::." + ["[1]::[0]" (close [] "io" "try" void)]) (ffi.import: java/io/InputStream) (ffi.import: java/io/OutputStream - ["#::." + ["[1]::[0]" (flush [] "io" "try" void) (write [[byte]] "io" "try" void)]) (ffi.import: java/net/URLConnection - ["#::." + ["[1]::[0]" (setDoOutput [boolean] "io" "try" void) (setRequestProperty [java/lang/String java/lang/String] "io" "try" void) (getInputStream [] "io" "try" java/io/InputStream) @@ -92,17 +92,17 @@ (getHeaderField [int] "io" "try" "?" java/lang/String)]) (ffi.import: java/net/HttpURLConnection - ["#::." + ["[1]::[0]" (setRequestMethod [java/lang/String] "io" "try" void) (getResponseCode [] "io" "try" int)]) (ffi.import: java/net/URL - ["#::." + ["[1]::[0]" (new [java/lang/String]) (openConnection [] "io" "try" java/net/URLConnection)]) (ffi.import: java/io/BufferedInputStream - ["#::." + ["[1]::[0]" (new [java/io/InputStream]) (read [[byte] int int] "io" "try" int)]) diff --git a/stdlib/source/library/lux/world/net/http/cookie.lux b/stdlib/source/library/lux/world/net/http/cookie.lux index 1f894d194..b1a829f9a 100644 --- a/stdlib/source/library/lux/world/net/http/cookie.lux +++ b/stdlib/source/library/lux/world/net/http/cookie.lux @@ -3,8 +3,8 @@ [lux "*" [control [monad {"+" [do]}] - ["." try {"+" [Try]}] - ["p" parser ("#\." monad) + ["[0]" try {"+" [Try]}] + ["p" parser ("[1]\[0]" monad) ["l" text {"+" [Parser]}]]] [data [number @@ -12,13 +12,13 @@ [text ["%" format {"+" [format]}]] [format - ["." context {"+" [Context]}]] + ["[0]" context {"+" [Context]}]] [collection - ["." dictionary]]] + ["[0]" dictionary]]] [time - ["." duration {"+" [Duration]}]]]] - ["." // {"+" [Header]} - ["." header]]) + ["[0]" duration {"+" [Duration]}]]]] + ["[0]" // {"+" [Header]} + ["[0]" header]]) (type: .public Directive (-> Text Text)) diff --git a/stdlib/source/library/lux/world/net/http/header.lux b/stdlib/source/library/lux/world/net/http/header.lux index d593ee3e5..ec716819d 100644 --- a/stdlib/source/library/lux/world/net/http/header.lux +++ b/stdlib/source/library/lux/world/net/http/header.lux @@ -7,9 +7,9 @@ [text ["%" format {"+" [format]}]] [collection - ["." dictionary {"+" [Dictionary]}]]]]] + ["[0]" dictionary {"+" [Dictionary]}]]]]] [// {"+" [Header]} - ["." mime {"+" [MIME]}] + ["[0]" mime {"+" [MIME]}] [// {"+" [URL]}]]) (def: .public (has name value) diff --git a/stdlib/source/library/lux/world/net/http/mime.lux b/stdlib/source/library/lux/world/net/http/mime.lux index 6f18a1399..257a4d5a5 100644 --- a/stdlib/source/library/lux/world/net/http/mime.lux +++ b/stdlib/source/library/lux/world/net/http/mime.lux @@ -2,9 +2,9 @@ [library [lux "*" [data - ["." text + ["[0]" text ["%" format {"+" [format]}] - ["." encoding {"+" [Encoding]}]]] + ["[0]" encoding {"+" [Encoding]}]]] [type abstract]]]) diff --git a/stdlib/source/library/lux/world/net/http/query.lux b/stdlib/source/library/lux/world/net/http/query.lux index ccfb68d2b..6a07496d4 100644 --- a/stdlib/source/library/lux/world/net/http/query.lux +++ b/stdlib/source/library/lux/world/net/http/query.lux @@ -4,18 +4,18 @@ [control pipe [monad {"+" [do]}] - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] ["p" parser ["l" text {"+" [Parser]}]]] [data [number - ["." nat]] - ["." text + ["[0]" nat]] + ["[0]" text ["%" format {"+" [format]}]] [format - ["." context {"+" [Context]}]] + ["[0]" context {"+" [Context]}]] [collection - ["." dictionary]]]]]) + ["[0]" dictionary]]]]]) (def: component (Parser Text) diff --git a/stdlib/source/library/lux/world/net/http/request.lux b/stdlib/source/library/lux/world/net/http/request.lux index 8ab8781cf..9ab4b1d32 100644 --- a/stdlib/source/library/lux/world/net/http/request.lux +++ b/stdlib/source/library/lux/world/net/http/request.lux @@ -3,31 +3,31 @@ [lux "*" [control pipe - ["." monad {"+" [do]}] - ["." maybe] - ["." try {"+" [Try]}] + ["[0]" monad {"+" [do]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]}] - ["." frp]] + ["[0]" async {"+" [Async]}] + ["[0]" frp]] [parser - ["<.>" json]]] + ["<[0]>" json]]] [data - ["." number + ["[0]" number ["n" nat]] - ["." text - ["." encoding]] + ["[0]" text + ["[0]" encoding]] [format - ["." json {"+" [JSON]}] - ["." context {"+" [Context Property]}]] + ["[0]" json {"+" [JSON]}] + ["[0]" context {"+" [Context Property]}]] [collection - ["." list ("#\." functor mix)] - ["." dictionary]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary]]] [world - ["." binary {"+" [Binary]}]]]] - ["." // {"+" [Body Response Server]} - ["#." response] - ["#." query] - ["#." cookie]]) + ["[0]" binary {"+" [Binary]}]]]] + ["[0]" // {"+" [Body Response Server]} + ["[1][0]" response] + ["[1][0]" query] + ["[1][0]" cookie]]) (def: (merge inputs) (-> (List Binary) Binary) diff --git a/stdlib/source/library/lux/world/net/http/response.lux b/stdlib/source/library/lux/world/net/http/response.lux index a69eacb5c..0a03f9f31 100644 --- a/stdlib/source/library/lux/world/net/http/response.lux +++ b/stdlib/source/library/lux/world/net/http/response.lux @@ -3,23 +3,23 @@ [lux {"-" [static]} [control [concurrency - ["." async] - ["." frp ("#\." monad)]]] + ["[0]" async] + ["[0]" frp ("[1]\[0]" monad)]]] [data - ["." text - ["." encoding]] + ["[0]" text + ["[0]" encoding]] [format - ["." html] - ["." css {"+" [CSS]}] - ["." context] - ["." json {"+" [JSON]} ("#\." codec)]]] - ["." io] + ["[0]" html] + ["[0]" css {"+" [CSS]}] + ["[0]" context] + ["[0]" json {"+" [JSON]} ("[1]\[0]" codec)]]] + ["[0]" io] [world - ["." binary {"+" [Binary]}]]]] - ["." // {"+" [Status Body Response Server]} - ["." status] - ["." mime {"+" [MIME]}] - ["." header] + ["[0]" binary {"+" [Binary]}]]]] + ["[0]" // {"+" [Status Body Response Server]} + ["[0]" status] + ["[0]" mime {"+" [MIME]}] + ["[0]" header] [// {"+" [URL]}]]) (def: .public (static response) diff --git a/stdlib/source/library/lux/world/net/http/route.lux b/stdlib/source/library/lux/world/net/http/route.lux index 07578b549..4232f4481 100644 --- a/stdlib/source/library/lux/world/net/http/route.lux +++ b/stdlib/source/library/lux/world/net/http/route.lux @@ -3,16 +3,16 @@ [lux {"-" [or]} [control [monad {"+" [do]}] - ["." maybe] + ["[0]" maybe] [concurrency - ["." async]]] + ["[0]" async]]] [data - ["." text] + ["[0]" text] [number ["n" nat]]]]] - ["." // {"+" [URI Server]} - ["#." status] - ["#." response]]) + ["[0]" // {"+" [URI Server]} + ["[1][0]" status] + ["[1][0]" response]]) (template [<scheme> <name>] [(def: .public (<name> server) |