summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2016-07-03 19:49:38 +0200
committerAndy Wingo <wingo@pobox.com>2016-07-03 19:49:38 +0200
commita2d00d13f8ed37699ad4e5646b4207390a1d7093 (patch)
treededc2ec97146729ac328a9c530999acd93368310 /examples
parentAdd memcached server and client examples. (diff)
downloadguile-fibers-a2d00d13f8ed37699ad4e5646b4207390a1d7093.tar.gz
Add fibers-based web server implementationv0.1.0
* web/server/fibers.scm: New file. * examples/web-hello.scm: New file. * Makefile.am: Build web/server/fibers.go.
Diffstat (limited to 'examples')
-rw-r--r--examples/web-hello.scm7
1 files changed, 7 insertions, 0 deletions
diff --git a/examples/web-hello.scm b/examples/web-hello.scm
new file mode 100644
index 0000000..00815a2
--- /dev/null
+++ b/examples/web-hello.scm
@@ -0,0 +1,7 @@
+(use-modules (web server))
+
+(define (handler request body)
+ (values '((content-type . (text/plain)))
+ "Hello, World!"))
+
+(run-server handler 'fibers)